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Fort Worth Scene 



GRAPHICS, GRAPHICS, GRAPHICS 

Graphics is a subject that no matter how much has 
been written about it, there always seems to be something 
more to be said. Judging by the large number of graphic 
programs that we receive almost daily, our readers share 
that opinion. At one time or another nearly every Microcom- 
puter publication has devoted at least one issue (and 
sometimes more) to this diverse subject. We will not be the 
exception. 

We have tried to squeeze user programs into every 
available space so that you could enjoy sharing in the dis- 
coveries of other TRS-80 users. In an effort to include 
something for everyone, the content runs the gamut from 
introductory graphics to some pretty sophisticated graph- 
ics programs. 

PRODUCTS WITH GRAPHICS CAPABILITIES 

It has been an interesting few weeks for us as we've 
gotten to explore the capabilities of the Model II graphics 
board, the digitizer, and the four color plotter on the PC-2. 
We had hoped to include information on the six color plot- 
ter but time did not permit us to do that. Maybe sometime 
in the future. 

CHOOSING USER PROGRAMS 

Probably the most difficult thing we had to do in pre- 
paring this issue was to choose the material for it. There 
was so much material to choose from and we had several 
lively discussions on what would be included in the graph- 
ics issue and what would not. Right now there are enough 
terrific unused programs to fill several more issues. We 
have included a variety of programs and articles so there 
should be something to pique your interest in this issue. 

Color computer owners will enjoy the graphic char- 
acter program in the Color Computer section. It has 
intrigued us ever since we first loaded it in, and we hope 
that you have as much fun with it as we have. 

AND MORE ... 

We tried to keep to the subject of graphics in all the 
sections, but keep in mind some columns lend themselves 
to graphics more than others. Of course Bill Barden adds 
another to his series of excellent articles on the 6809 for 
which we will be eternally grateful, even if we did have to 
fork over a free subscription to Microcomputer News to get 
him to do it. We feel that the return on our investment more 
than justifies our expenditure. . 

You will find the long promised Model III head cleaner 
program in this issue. Due to a miscommunication we pub- 
lished another Model I head cleaner program in May when 
what we really wanted to do was publish one for the 
Model III. Sorry about that! We have been taken to task by 
enough readers to know that it was imperative to get the 
Mod III head cleaner program into the June issue. 




If you're a sports fan, you might enjoy playing the foot- 
ball game in the feature story. Who knows, even if you're 
not a sports fan you may enjoy it. Anyway, kick it around a 
little bit before forming any opinions. 

A lot of work has gone into this issue — by all our con- 
tributors (including readers) as well as by the Microcom- 
puter News staff. Our thanks to all who made contributions. 
Be sure and read View from the 7th Floor, not just because 
it's nice to be vindicated occasionally, but if you're like me, 
you'll get a chuckle-from his reference to a previously seen 
wall plaque, 

OOPS 

We goofed. Quite unintentionally, we used a trade- 
marked phrase in the March, 1982 article on Model 16, The 
term Maxi-Micro® is a trademark of Max Ule and Com- 
pany, Inc. Our apologies for the misuse. 




IMPORTANT NOTICE: The July issue of TRS- 
80 Microcomputer News is scheduled to be 
delivered in late July or early August, and will be 
labeled July/August. This change will in no way 
change the number of issues that you are sup- 
posed to receive. 
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Reproduction or use of any portion of the Microcomputer 
News (without express written permission from Tandy Corpo- 
ration) is prohibited Permission is specifically granted to indi- 
viduals to use or reproduce material for their personal, non- 
commercial use. Reprint permission for all material (other than 
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The TRS-80 Newsletter welcomes the receipt of computer 
programs, or other material which you would like to make avail- 
able to users of TRS-80 Microcomputer systems. In order for us 
to reprint your submission, you must specifically request that 
your material be considered for reprinting in the newsletter and 
provide a notice that you retain no copyrights or other exclusive 
rights in the material. This assures that our readers may be per- 
mitted to recopy and use your material without creating any 
legal hassles. 

Material may be submitted by mail to P.O. Box 2910, Fort 
Worth, Texas 76113-2910, or through CompuServe, The Micro- 
computer News' CompuServe user ID number is 70007,535. 

Notes to Program Users: 

Programs published in the Microcomputer News are pro- 
vided as is, for your information. While we make reasonable 
efforts to ensure that the programs we publish here work as 
specified, Radio Shack can not assume any liability for the 
accuracy either of the programs themselves, or of the results 
provided by the programs. 

Further, while Microcomputer News is a product of Radio 
Shack, the programs and much of the information published 
here are not Radio Shack products, and as such cannot be sup- 
ported by our Computer Customer Service group. If you have 
questions about a program in the Microcomputer News, your 
first option is to write directly to the author of the program When 
possible, we are not including author's addresses to facilitate 
communications. If the address is not published, or if you are 
not happy with the response you get, please write us here at 
Microcomputer News We will try (given the limited size of our 
staff) to find an answer to your question and, in many cases will 
publish the answer in an upcoming issue of Microcomputer 
News. 

Comments on our program listing style: 

In order to make the program listings we publish easier to 
read, we have adopted a style of inserting spaces to enhance 
readability, and we separate each program statement onto a 
separate line. While these techniques increase program read- 
ability, they also require more memory, and may execute more 
slowly than the original program did 

When you are entering a program for your own use, you 
may wish to eliminate many of the extra blanks (see your owners 
manual for required blanks), and you should certainly move 
multiple statements up to a single line where possible. 

Trademark Credits 
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View From the Seventh Floor 



Jon Shirley 

Vice President, Radio Shack Computer Merchandising 



I recently received two letters, neither of which was 
sent to me directly, but both certainly have an interesting 
story to tell. One was sent to a supplier of TRS-80 add 
on/in equipment by a TRS-80 owner, and the other was 
sent to an owner by a similar supplier. I will not identify the 
individuals or companies involved, but the companies can 
be found advertising in various computer magazines. 

The first letter concerns a Model III owner who 
attended a computer show in Los Angeles and found a 
booth with a show special on RAM chips, 32K for only $29! 
"All you have to do is open up yer Model III and stick 'em 
in!" Well, he did not buy at the show, but he did call them 
up later and finally sent in his check. 

Although the company with the cheap chips was 
about 30 minutes away, the order took two weeks and 
three phone calls to be filled. Well, he installed the chips, 
and ?MEM said 48082 BUT the memory could not be 
accessed. To quote from the letter "After three weeks of 

almost daily phone calls to / and leaving 

messages for some mysterious person named 'Bill' whom 
I am told is the only living person in the world with the 
answer to my problem, I gave it up." 

And the letter ends, "I'm pleased about one thing. It 
only cost me $33 to find out that having a Radio Shack 
Computer Center a few blocks from my home is worth the 
extra dollars I will spend in the future for 'Pure Radio Shack.' 

My thanks to the customer who sent me a copy of this 
letter. 

Letter number two is quite a bit different. This letter 
was sent from one of the several companies, who make 
Model III add in disk systems, to one of their unfortunate 
customers. It came to me via many hands but seems to 
have been first seen at a repair department where the cus- 
tomer was showing the letter. To see why he was at our 
repair center let me quote some of the letter. 

"We have exhaustively tested your disk controller 
board and report the following: 

1 . The unit works properly in our test computer. 

2. It has been tested with TRSDOS 1.2, NewDos 80 v 
2.0, LDOS v 5.1 .0A and DosPlus 3.3, 3.4, and 4.0D. 
We have determined that it works flawlessly with all 
of these operating systems, and, therefore, assume 
that the computer must be at fault." 

I don't know why people still use TRSDOS 1.2 so long 
after 1,3 has been released. Now comes the good stuff. 

"From the large number of complaints we and other 
disk upgrade manufacturers are having reported, it 
appears that Radio Shack is experiencing a high failure 
rate from their PC board manufacturing facility. We have 
also heard that ROM C is in its sixth revision, thus indicat- 
ing that Tandy is still trying to make the basic computer 
work properly. Unconfirmed reports are that Tandy is ship- 



ping units incapable of working in a disk environment as 
16K Level-II cassette only machines. This is being reported 
by a number of Radio Shack Franchise stores, a large 
number of whom are using our board for disk upgrades 
instead of the Tandy unit. Tandy assumes that if a unit is 
upgraded to disk, they can replace the defective PC board 
with one that will work with their disk. Incidentally, Tandy is 
having the same problems as the aftermarket manufactur- 
ers such as , except they can recycle the defec- 
tive PC boards, and we cannot." 

Now what is interesting about all this is that it is 100% 
untrue. Or to put it another way, we deny every claim the 
letter makes. What they did not seem to tell the customer 
was that perhaps the disk drive(s) they sent had a prob- 
lem, or the cable, or the installation by the customer or per- 
haps there was not enough shielding for the drives. They 
also failed to mention that a double density disk controller 
has three or four adjustments that are critical and require 
a high quality scope to make. In other words a lot of things 
could cause his problem. 

To be fair they do offer a refund but then they suggest 
the customer remove the disk controller and power sup- 
plies and take the unit in to us and demand that we fix it so 
that disk drives can be added. Since they know we are not 
making Model Ill's that are not disk compatible they sug- 
gest the following. 

"They will no doubt give you a hard time, but you might 
hint that the system was advertised to be upgradable to 
disk operation, and that if you cannot get satisfaction, you 
will be obliged to contact the Fair Trade Commission. You 
might desire to write an article for one of the magazines, 
and possibly contact Ed Juge in Fort Worth." 

Neat. We can't help you, so yell, loudly. Reminds me 
of a wall plaque I saw once that said: when in worry, when 
in doubt, run in circles, scream and shout. What I do not 
understand about the letter is the lack of mention of the 
disk drives. Some outside suppliers do sell just the double 
density board and power supply and leave the drives up 
to you. If that is the case here, it is possible that the cus- 
tomer has drives that cannot be used double density at the 
step rates required by the Model III. These would include 
the Shugart SA-400 and some Japanese drives that use 
cam mechanisms rather than band mechanisms. 

Now I will admit that we make the disk Model Ill's in 
one factory and the non disk units in another due to the vol- 
ume of Model Ill's we make. BUT we test every board that 
goes in a cassette Model III for all possible upgrades — 
disk, RS-232, and more memory. The logic on the CPU 
board that is required for the disk board is all dual purpose, 
so if it did not function the computer would not function. 
The only possible problem would be in the card edge on 
the board, and our actual failure rate is almost too low to 
measure. The few that do fail are fixed, not shipped. 
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Pocket Computer 



Printing Features of the PC-2 



Last month the many features of the PC-2 were intro- 
duced in this column. This month the focus of this column 
is on the powerful printing capabilities of this great little (in 
size only!) computer. 

The Printer 

The PC-2 printer, a four color plotter, is part of the 
printer/cassette interface (26-3605). The four ball point 
plotter pens are available in black, blue, green, and red. 
This printer uses 2W roll paper and prints at a maximum 
speed of eleven characters per second when using the 
smallest character size. 

The Printer Switch and Manual Calculations 

On the PC-2 interface there is a switch labeled PRINT. 
When the switch is in the AUTO position, calculations per- 
formed in the RUN, PRO, or RESERVE mode are displayed 
on the computer. If SIN 30 is ENTERed then 0.5 is dis- 
played on the computer. If SIN 30 is ENTERed with the 
switch in the ECHO position then SIN 30 is printed on the 
printer, a line feed is executed, and 0.5 is printed right 
justified. 

Again with the PRINT switch in the ECHO position 
(where A$ is equal to "TESTING"), when A$ (ENTER) is 
keyed in, A$ is printed left justified on the paper and TEST- 
ING is printed left justified directly under A$ like this: 

A$ 
TESTING 

During the above operation, A$ is also displayed on 
the computer's display until (ENTER) is pressed. Then 
TESTING appears left justified on the display. When the 
PC-2 is being used primarily as a computer, the PRINT 
switch will usually be in the AUTO position. When the PC- 
2 is used as a calculator where hard copy of both calcu- 
lations and results is desired, the PRINT switch will be in 
the ECHO position. 

Printer Modes 

The two printer modes are GRAPH and TEXT. The 
TEXT mode is used to print numbers and characters, and 
the GRAPH mode is used for graphics. 

The distinction between GRAPH and TEXT is very crit- 
ical since many of the BASIC commands only work in one 
mode or the other. 



TEXT ONLY 


GRAPH ONLY 


TEXT/GRAPH 


LCURSOR 


ROTATE 


CSIZE 


LLIST 


SORGN 


COLOR 


LPRINTTAB 


GLCURSOR 


LPRINT 


LF 


LINE 


USING 




RLINE 


TEST 



COLOR n 

Where n is a value 0-3, COLOR is used to select which 
pen (0-3) will be used. If more than one pen color is 
installed in the printer then a pen color is selected by indi- 
cating the position of that pen. COLOR causes the speci- 
fied pen to be selected, and the pen is then repositioned 
in the spot it previously occupied before the COLOR com- 
mand was issued. 

CSIZE n 

When n equals a value (1-9), the CSIZE (or character 
size) command is used to alter the size of the printed char- 
acters. There are nine different character sizes ranging 
from 1.2 mm highx0.8 mm wide to 10.8 mm highx7.2 mm 
wide (0.048" x 0.032" to 0.432" x 0.288"). When no CSIZE is 
indicated all printing will be done in the default CSIZE 
which is 2. A run of the following program yields a printout 
of CSIZE 1 (the smallest), CSIZE 2, and CSIZE 3. 

10: FOR X=l TO 3 
20:LF 1 
30: CSIZE X 

40: LPRINT "CSIZE TEST" 
50: NEXT X 



CSIZE TEST 

CSIZE 



TEST 



CSIZE TEST 

Depending on the CSIZE specified you can print from 

4 (CSIZE 9) to 36 (CSIZE 1 ) characters per line in upper or 
lower case. All printing is done in the last specified CSIZE. 

GLCURSOR (X,Y) 

GLCURSOR is used to move the pen to an X,Y position 
(-2047 to +2047) without drawing a line. 

LCURSOR n 

LCURSOR (TEXT mode only) enables you to move the 
pen to a specified character position (n). The position it 
moves to depends on the value of n and the size (CSIZE) 
of the characters being printed. For example, LCURSOR 

5 would move the pen a greater distance if the CSIZE were 

9 than it would if the CSIZE were 1 . 

LF n (Line Feed) 

Where n is a negative or positive number, the LF com- 
mand moves the printer paper in reverse (negative num- 
bers) or forward (positive numbers). The distance that the 
paper moves per line feed depends on the CSIZE last 
specified. The maximum distance for reverse line feeds is 

10 cm (approximately 4 inches). 

LINE(X1,Y1)-(X2,Y2),line-type,color,B 

The LINE command is the most powerful command of 
the GRAPH mode. It is used to move the pen from one 
coordinate (X1 ,Y1 ) to another coordinate (X2.Y2). If the pen 
is down then a line is drawn. 
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Line-type- 
following nine 
by 9. 



-The line-type drawn can be any one of the 
ines (0-8) or no line at all can be indicated 



Line-type 
Value 



Resulting 
Line 




1 
2 
3 

4 

5 
6 
7 



LPRINT Demonstration Program 

5:N$="NAME":N=1 
10: FOR X=1T0 2 
20: ON XGOSUB 1000,1010 
30:LPRINT"TEST" 
40: IF X=1THEN LPRINT N$,N 
50: LPRINT N$;N 
60: LPRINT N$ ; 
70: NEXT X 
80 : END 



1000 
1010 
1020 

RUN 

TEST 
NAME 



TEXT: GOTO 1020 

GRAPH 
RETURN 



CHART OF LINE TYPES 

Color — The pen color is indicated by a number (0-3) 
in the LINE command. 

B — An additional instruction, B for Box, can be added 
to create a box around the X1.Y1 -X2.Y2 diagonal. 

The following program will draw two boxes. The first 
box is drawn with a green, broken line and the second box 
which is drawn below and to the left of the green box is red 
with a solid line. 



10 : GRAPH 

20:GLCURSOR (100,100) 

30 : SORGN 

40: LINE (10,10) 

50:LINE (-10,-1 



(50, 50), 3, 2, B 
)-(-50,-50),0,3,B 



If the first LINE coordinate is not specified then the 
unspecified coordinate value defaults to the current pen 
position. 

Still another form of the LINE command allows up to 
six points in a row to be specified. Line 40 below uses this 
form of the line command to draw a triangle. 

10 : GRAPH 

20:GLCURSOR (0,0) 
30 : SORGN 
40:LINE(0,0)-(30,30)-(50,0)-(-50,0) 



/\ 



LLIST 

Several options are available using LLIST. You can 
LLIST the entire program, a specific line (identified by 
either a line number or label), from a specified line number 
or label to the end of the program, from the beginning of 
the program to a specified line number or label, and within 
a range defined by two line numbers or two labels. 

LPRINT 

LPRINT is the primary command for displaying text on 
the printer. It has several different forms and works differ- 
ently in the TEXT mode than it does in the GRAPH mode. 
The LPRINT Chart below lists the forms of LPRINT, the 
MODE(s) in which each form is operable, and the line of 
the demonstration program using that form. 



LPRINT FORMAT 

LPRINT item 
LPRINT item1,item2 
LPRINT item 1;item2 
LPRINT item, 



PRINT MODES 

TEXT & GRAPH modes 
TEXT mode only 
TEXT & GRAPH modes 
TEXT & GRAPH modes 



DEMONSTRATION 
LINE 

30 
40 
50 
60 



NAME 1 
NAME 



TESTNAME 1NAME 



LPRINT TABn; item/list 

LPRINT TAB can be used in the TEXT mode only. It 
allows you to tab to a position (n) on the line and print an 
item/list. The position on the line is determined by the value 
of n and the size (CSIZE) of the characters being printed. 

Example program: 

10: TEXT 

20:CSIZE 2 

30: FOR N=l TO 5 

40: LPRINT TAB N; "A";"B";"C" 

50: NEXT N 

RUN 

ABC 
ABC 
ABC 
ABC 
ABC 

LPRINT USING 

LPRINT USING is much like a PRINT USING state- 
ment. It can be used in the TEXT and GRAPH modes. 

RLINE 

RLINE is like the LINE command except that the origin 
is relative to the current pen position instead of the origin 
(0,0). Changing LINE to RLINE in line 40 in the LINE sec- 
tion results in the following figure. 



/ 



ROTATE n 

ROTATE n (where n is a value 0-3) indicates the four 
directions in which printing may occur. These directions 
are illustrated by the following chart. 



t 

TEST , 



CO 



m. 

CO 

—i 



1S31 



TRS-80 Microcomputer News, June 1982 



SORGN 

SORGN (Set Origin) specifies the current pen position 
as the origin for the graphing commands which follow. 

TEST 

This command is used to give the plotter a once over 
with most of its commands. TEST ascertains correct printer 
operation by checking for correct color sequence (0-1-2- 
3), size (1 cm) alignment, and clarity (each figure is drawn 
twice). TEST (ENTER) in any of the three modes (RUM, 
PRO, or RESERVE) causes the printer to print four 
boxes, each a different color. TEST can also be used in a 
program line. 

GRAPHS FOR THE PC-2 

Since there is a plotting program for the Multi-Pen Plotter 
(26-1 191) and the Models I, Hand III. it seemed reasonable' 
that PC-2 plotter users might enjoy a similar program. (The 
program requires approximately 2806 steps of memory. 
4K Ram Module required.) 

This easy to run program plots four different graphs 
(or charts): Bar, Line, Band, and Circle. After entering the 
program, type (R)<U)<N) (ENTER) in the Run mode, and 
the following message appears on the display: 

BAR/LINE- 1 BAND/CIRCLE = 2 

Press <1 ) (ENTER) for a Bar or Line graph or press (2) 
(ENTER) for a Band or Circle graph, 

BAR OR LINE GRAPH 

If (1) is pressed TITLE?_ appears on the display. This 
prompt is asking for a name for the graph. Key in a name 
and press (ENTER). Next BAR = 1 .BROKEN LINE = 2?_ is 
displayed. Now press (1) (ENTER) for a Bar graph or (2) 
(ENTER) for a Broken Line graph. 

After (1) or (2) is pressed, the prompt ITEM(1) = ? 
appears. Enter the name of the first item. Next, the prompt 
VALUE(1) = ? appears. Enter the value of item 1. This pro- 
cess will continue until the names and values of a maxi- 
mum of eight items have been entered. To terminate entry 
of items before reaching the maximum (8), press the 
(ENTER) key in response to the ITEM prompt. The graph 
will now be printed. A bar graph might look something 
ike this: 8AR CHPRT 
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Bar Chart Example 
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while a line graph would look like this. 

LINE CHART 
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Example Line Chert 



CD 
X 



Upon completion of the chart the main menu 
reappears. 

Band or Circle Graph 

If you select {2) at the Main Menu the first prompt that 
appears is ITEM NAME(1 )? Enter the name of the first item. 
Next appears the prompt VALUE(1) = ? Enter the value of 
the first item. The names and values of up to ten items may 
be entered. To terminate the entry of items press (ENTER) 
for the name. The prompt CIRCLE = 1 BAND = 2 is dis- 
played. Choose 1 for a Circle or Pie chart or 2 for a Band 
graph. Depending on the number chosen the graph will 
then be reproduced. 




Circle Chart Example 



A PENS 

B PENCILS 

C ERASERS 

.;..... 6 , 25'A 
PAPER PKG 

1 1 25/' 

E ENUELOPES 

F RUBBER BAN 

G PAPER CLIP 

] 6 . 25X 



* 



The Program 

■i - Vj LtCj AK 

: WAIT 
5: INPUT "BAR/LINE=1 BAND/CIRCLE=2" ; AN 
7 : IF AN < 1 OR AN > 2 GOTO 5 
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490: 



T 






!•■■■■■ 
*f ! 



m 



iniiiiii 



PENS 
PENCIL 



*-* *-■*••» ■ *- 



j^S 




w^^m-m i ■ i I l" 



t ■■ ■■*■■■ d 
iilllllHtl 



* i ♦ i i 4 m.1 



PAPER PKG 
ENUELQPES 
RUBBER BAN 
PAPER CLIP 



1 8 - 75* 

26.25*/. 

6.25X 

. 25>: 

12.50* 

a. ?5>: 

,25V: 



Band Chart Example 



a. ON AN GOTO Id, 850 


10: 


DIM A$(8)»A(8) 


20: 


INPUT "TITLE?"; A$(0) 


3d: 


INPUT "BAR=1 BROKEN LINE=2?";C 


40: 


IF (C=1)+(C=2) <> 1 GOTO 30 


50: 


FOR 1=1 TO 8 


60: 


B$="ITEM("+ 3TRS 1+")=" 




: PRINT B$; 


65: 


INPUT A$(l) 




: CLS 




: GOTO 80 


70: 


CLS 




: 1=1-1 




: GOTO 100 


60: 


BS="VALUE( M + STRS 1+")=" 




: PRINT B$; 


85: 


INPUT A(I) 




: CLS 


87: 


IF D < A(I) LET D=A(I) 


90: 


NEXT I 


100: 


LPRINT " "; AS(0) 


105: 


D=45/D 


lit): 


GRAPH 


120: 


GLCURSOR (0,-250) 




: SORGN 


130: 


IF C=2 LET G=2 


140: 


LINE (0 ) 0)-(200,230) ) 0,G,B 


150: 


IF C=2 GOTO 400 


160: 


G=>5 


i70: 


E=(40-I)/I*5 


180: 


FOR J=l TO I 


190: 


H=G+E 


200: 


F=D*A(j)*5 


220: 


GOSUB 600 




: G=H+5 




: NEXT J 




: G=5 


230; 


FOR J=l TO I 




: H=G+E 


235 


: N=G+E/2-10 




: GOSUB 800 


240: 


; G=H+5 




: NEXT J 


245 


: GLCURSOR (0 s -250) 


250 


; TEXT 




: LF 5 




: GOTO 1 


4^0 


: fi=40/(I+l)*5 


410 


: FOR J=l TO I 


420 


: H=E*J 


430 


: F=D*A(J)*5 


440 


: IF J^i GOTO 460 


450 


: LINE (G,M)-(H,J?) f 0,3 


460 


: G=R 




: M=F 


460 


: NEXT J 


483 


: FOR J=l TO I 




: H»E*J 


465 


: N=H 




: GOSUB 800 




: NEXT J 


4tf7 


: GLCURSOR (0,-250) 



600: 

610: 
620: 

630: 

700: 
705: 
708: 
710: 
713: 

71i: 
718: 
720: 
800: 
til0: 

620: 
830: 



650: 



855 



860 



870: 
860: 

885: 
89 0: 



892: 



&95: 



905 
910 
915 
920 
925 



930 



935: 
940: 



945: 
9j0: 
944: 
960: 



965: 
970: 

975: 
980: 



TEXT 

: LF 5 

: GOTO 1 

M«M+1 

: L=L+1 

If L=4 LET L= 

GLCURSOR (G,0) 

: LINE CG,!fl)-(H,F) J J L s B 

P=0 

; IF M > 4 LET P=2 

0=0 

FOR K=l TO 45 

0=0+5 

IF F<= GOro 720 

IF K-INT (K/2) * 2=1 LINE (G,0)-(H,0) ,P 

. GOTO 71 6 

LINE (H,0)-(G,0),F 

NEXT K 

RETURN 

ROIATE 1 

GLCURSOR (N.-15) 

: COLOR 

LPRINT AS(J) 

ROTATE 

RETURN' 

Q=9 

: DIM A$(Q)*10, B${Q)*1, A(Q) 
BS(0)= M A" 

: BS(1)="B" 

: BS(2)="C" 

; B$(3)="D" 

: BS(4)="E" 

: B$(5)="F" 

B$(6)="G" 

: B$(7)="H" 

: BS(8)= ,, I n 

: B$(9)="J" 

FOR 1=0 TO Q 

CS="ITEM NAME("+STR$(I+1)+")" 

: PRINT C$; 

INPUT A$U) 

: GOTO 892 

CLS 

: 1=1-1 

: GOTO 905 

CLS 

: CS=" VALUE ("+STRS (1+1)+")=" 

: PRINT C$; 

INPUT A(I) 

: CLS 

: H=H+A(I) 

NEXT I 

I^I+l « 

INPUT "CIRCLE=1 BAND=2 ";C 

IF (C=l) + (C=2) <> 1 GOTO 910 

IF C=2 GOTO 1065 

GRAPH 

: GLCURSOR (110,-125) 

: SORGN 

D=12 

: ¥=100 

: R=100 

: L=l 

: C=0 

FOR J=l TO 31 

GOSUB 1170 

: LINE (X,Y)-(X1 ,Y1) 

'. A = A 1 

: Y=Y1 

: C=C+D 

NEXT J 

FOR J=0 TO 1-4 

R=100 
F=360*A(J)/h 

: F=F+G 

: IF J=I-1 LET F= 

FOR M=i TO 2 

IF M=l LET C=G+.5 

: GOTO 930 

C=F-.5 

GOSUB 1170 

: IF L>3 LET L=l 






i 
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985: LINE (0 ,0)-(Xl , Yl) ,0 ,L 

: NEXT M 
990: R=50 

: C=(F-G)/2+G 
: GOSUB 1170 
: Xl=Xl-3 
995: G=F 

1000: GLCURSOR (XI, Yl) 
: LPRINT B$(J) 
: L=L+1 
: NEXT J 
1005: GLCURSOR (-110,-150) 

: SORGN 
1010: Y=0 
: X=0 
: COLOR 
1015: FOR J=0 TO 1-1 
1020 D=A(J)/H*100 

: D=INT((D+.005)*100)/100 
: IF J=I-1 LET D=100-N 
: GOTO 1030 
1025: N-M+D 
1030: GLCURSOR (X,Y) 

: LPRINT B$(J) 
1035: GLCURSOR (18,Y) 

: LPRINT A$(J) 
1040:Y=Y-20 
1045: GLCURSOR (18,Y) 

: LPRINT " "; USING 

"###.##";D;"%"; USING 
1050:Y=Y-20 
1055: NEXT J 
1060: TEXT 

: LF 5 
: GOTO 1 
1065: GRAPH 

: GLCURSOR (0,0) 
: SORGN 
: ROTATE 1 
1070:K=1 

: L=l 
: S=160 
: V=215 
107 5: FOR J=0 TO 1-1 
1080:D=INT(A(J)/H*100+.5) 

: E=D*3 
1085:W=T-E 

: IF J=I-1 LET W=-300 
1090: IF L>3 LET L=l 

: K=K+1 
1095:LINE (160 ,T)-(215 ,W) ,0 ,0 ,B 

: GOSUB 1175 
1100: T=W 

: L=L+1 
: NEXT J 
1105:K=1 

: L=l 
: W=-50 
: T=0 
11 10: FOR J=0 TO 1-1 
1115: IF L>3 LET L=I 

: K=K+1 
1120:F=160/I*(I-J-1) 

: LINE (F,0)-((F-5+160/I),-50), 
1125:S=F 

: V=F-5 + 160/'I 
: GOSUB 1175 
11 30: COLOR 

: GLCURSOR (F,-80) 
: LPRINT A$(J) 
11 35: GLCURSOR (F,-210) 

: LPRINT "." 
1140:D=A(j)/H*100 

: D=INT((D+.005)*100)/100 
1145: IF J=I-1 LET D=100-G 

: GOTO 1155 
1150:G=G+D 
1155:GLCURSOR (F,-240) 

: LPRINT USING "###.##" ;D; "%" 
: USING 
1160:L=L+1 

: NEXT J 



1165 



1170 



1175 
1180 
1185 
1190 

1200 
1205 

1210 
1215 
1220 

1225 
1230 
1235 
1240 

1245 
1250 
1255 

1260 
1265 
1270 



:TEXT 

: LF 5 

: GOTO 1 
:X1=R*SIN C 

: Yl=R*COS C 

: RETURN 
:IF K > 3 LET K.= l 
:IF K=l GOSUB 1205 
:IF K=2 GOSUB 1240 
:IF K=3 GOSUB 1205 

: GOSUB 1240 
: RETURN 
:P=T 

: FOR 0=1 TO 60 
:P=P-5 

:IF P <= W GOTO 1235 
:IF O-INT(O/2)*2=0 LINE (S ,P)-(V,P) ,0 ,L 

: GOTO 12 30 
:LINE (V,P)-(S,P),0,L 
:NEXT 
: RETURN 
:P=S 

: FOR 0=1 TO 50 
:P=P+5 

:IF P >= V GOTO 1270 
:IF O-INT(O/2)*2=0 LINE (P,T)-(P, W) ,0 ,L 

: GOTO 1265 
:LINE (P,W)-(P,T),0,L 
:NEXT 
: RETURN 



Pocket Computer Bugs, 
Errors, and Fixes 

Changes to BASIC programs 

There are general procedures that need to be fol- 
lowed when any corrections are made. 

1. Make a backup of the tape that contains the pro- 
gram to be corrected. Changes should be made on 
the backup copy. 

2. Load the program to be changed by typing 
CLOAD"filename" where filename is the name of 
the program to be modified. 

3. Make the line changes indicated in the fix, For exist- 
ing line numbers, edit or retype the line to match the 
one in the fix. New lines should be entered. 

4. Save the corrected program (the one now in mem- 
ory). Type CSAVE'Tilename" (ENTER) where file- 
name is the name of the program that has been 
modified. 

5. Now make a backup of the corrected tape. 

Surveying (26-3512) 

In Surveying (Version 1.0) a problem exists where a 
PRINT format (USING) statement is left active after leaving 
another routine. 

Make the following change in the program named 

CLOSE: 412 NEXT M: USING 

Personal Finance (26-3518) 

If the user gets no display of month with program 
"BG," option "B" after specifying "N" to prompt "DATA 
TAPE." The problem is documented in the instruction 
addendum 875-9107. 

OPTIONAL: The program can be made to display cur- 
rent month in all cases by editing line 100. 

Make the following change in the program named BG: 

100 INPUT"LOAD DATA TYPE(Y/N) ?" ; A$ : IFA$= 
"N"THEN120 
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Feature Story 



Football For Summer 




The following program "FOOTBALL" was the winning entry 
in the recent Charleston, South Carolina JETS 1981 — 
Design Competition — TRS-80 Computer Game Contest. 

The program is a football game between you and the 
computer. You have the options of naming your own team 
and players, or you can accept the names the computer 
provides. I am not a football expert, and the game 
promptly proceeded to clean the field with me. I hope you 
have better luck, someone has to champion the superiority 
of humans over computers. 

The program was written by Ken Clark, a 17 year old 
junior at Walterboro High School, where he is a member of 
the local JETS club. Ken has had his Model I for about 
seven months, though his interest in computing goes back 
at least two years to the summer when he enrolled in Clem- 
son's "Interaction Computing" course. Ken's hobbies 
include chess, golf, and band, and he plans to study Com- 
puter Engineering at Georgia Tech. 

Our congratulations to Ken, his JETS Club sponsor 



... L v 



Mrs. Georgia Spruill, as well as to the other people who 
participated in the competition. 

Ken's program runs in a Model I with 16K and Level II 
BASIC (it will also run on a Model III BASIC). The program 
contains instructions, and seems to play a reasonable 
game of football. 

We do have some words of caution. As is the Micro- 
computer News style, we have inserted many spaces in 
the program lines to make program entry and verification 
as simple as possible. The result is that some lines will now 
be longer than the computer will accept. As you enter the 
lines, you may need to remove all spaces which do not 
occur within quotes. Further, while we did not check the 
exact memory requirements of the program, it takes most 
of the available memory in a 16K machine, so you may 
need to remove all non-essential spaces. One other com- 
ment. Inside strings, you will frequently notice that Ken 
runs phrases or words together. If your text is positioned 
properly, this causes wraparound on the screen, and the 
text prints correctly, 



10 'KEN CLARK/ 306 COUNTRY LN/ WALTERBORO, SC 

29488/ (803)549-7164 ALL RIGHTS RESERVED 
BY THE AUTHOR - DECEMBER 21, 1981 
30 CLEAR 1000 
RANDOM 
CLS 

PRINT@537, "FOOTBALL 1.3" 
PRINT@960, "DO YOU WANT INSTRUCTIONS (Y/N) 

40 AS=INKEY$ 

: IF A$<>"Y" AND A$<>"N" THEN 40 ELSE CLS 

: IF A$="N" THEN 100 
45 PRINT "THE OFF. PLAYS ARE: LB-LONG BOMB 

HM-HAIL MARYOT-OVER THE TOP RUN 

ES-END SWEEPDD-DRAW 

SP-SCREEN PASSDO-DOHN AND OUT PASSFG-FIELD 

GOAL PP-PUNT" 

50 PRINT 

: PRINT " THIS GAME PLAYS JUST LIKE 
REGULAR FOOTBALL. THERE ARE 12 MINUTES IN A 
QUARTER AND FOUR QUARTERS IN A GAME. IF THE 
SCORE IS TIED AFTER REGULATION YOU GO INTO 
OVERTIME. IN OVERTIME THE FIRST PERSON TO 
SCORE WINS. IF IT GOES 12 MINUTE"; 

51 PRINT "S WITHOUT ANYONE SCORING THEN IT 

IS RULED A TIE. THE ABBREVIATIONS OF THE 
PLAYS WILL BE DISPLAYED WHILE THE GAME IS 
PLAYING SO YOU DON' I HAVE TO MEMORIZE THEM. 
MORE ON THE PLAYS LATER." 
: PRINT@960, "HIT <ENTER> TO CONTINUE"; 
: A$=INK£Y$ 

52 IF INKEY$="" THEN 52 ELSE CLS 

: PRINT " WHEN ENTERING PLAYS, IF YOU WANT 
TO RUN THE SAME PLAY AS THE TIME BEFORE YOU 
CAN JUST HIT <ENTER>." 

53 PRINT 

: PRINT " LONG BOMB : THIS PLAY IS JUST 
WHAT YOU THINK. ABOUT 25 YARDS PER 
COMPLETION BUT WITH A LOW PERCENTAGE OF 
COMPLETIONS. DOWN AND OUT : THIS PLAY HAS A 
HIGHER PERCENTAGE OF COMPLETIONS BUT ONLY 
GAINS ABOUT 7 YARDS." 

54 PRINT " PUNT : PUNTS THE BALL FOR AN AVERAGE 

OF ABOUT 40 YARDS. FIELD GOAL : ATTEMPTS A 
FIELD GOAL. OUTSIDE OF THE 35 YARD LINE 
YOUR KICKER IS VERY INACCURATE BUT IT IS 
STILL POSSIBLE TO MAKE THEM. OUTSIDE OF THE 
48 YARD LINE II [S "; 

55 PRINT "VIRTUALLY IMPOSSIBLE." 
60 PRINIL8960, "HIT <ENT£R>"; 

62 IF INK£Y$="" THEN 62 ELSE CLS 

: PRINI 'THE DEF. PLAYS ARE:GL - GOAL LINE 
(IN SHORT YARDAGE SITUATIONS ) RR - RUN 
DEFENSE (DRAW. SWEEP. OPTION. ETC.) PA - PASS 



65 
98 
99 

100 



110 



115 
120 



41C 



DEFENSE (SHORT AND MEDIUM PASSES)PV - 
PREVENT DEFENSE (AGAINST LONG BOMBS )PP - 
PUNT (AGAINST "; 
PRINI "P0Nf3)FG - TO BLOCK FIELD GOALS" 
PRINK3960, "HIT ENTER 10 CONTINUE"; 
IF INKEY$="" THEN 99 
CLS 
: PRINT "DO YOU WANT TO ENTER YOUR OWN NAMES 
FOR THE PLAYERS (Y/N) ? "; 
A$=INKEY$ 
: IF A$<>"Y" AND A$0"N" THEN 105 ELSE PRINT 
A$ 

: IF A$="N" THEN 310 
INPUT "YOUR TEAM'S NAME"; H$(0) 
: IF LEN(H$(0))>6 THEN PRINT "TOO LONG (6 
CHAR)" 

: GOTO 110 ELSE INPUI "YOUR QUARTERBACK"; 
H$(l) 

: INPUT "YOUR # 1 RUNNING BACK"; H$(2) 
: INPUT "YOUR # 2 RUNNING SACK"; H$(3) 
: INPUT "YOUR # 1 WIDE RECEIVER"; H$(4) 
INPUT "YOUR # 2 WIDE RECEIVER"; H$(5) 
INPUT "YOUR TIGHT END"; H$(6) 
INPUI "YOUR KICKER"; H$(7) 
INPUT "YOUR PUNIER"; H$(8) 

INPUT "YOUR KICKOFF/PUNT RETURNER"; H$(9) 
GOTO 360 
H$(0)="TAMPA" 

H$(1)="D0UG WILLIAMS" 
H$(2)="JERRY ECKWOOD" 
H$(3)="JAMES WILDER" 
H$(4)="KEVIN HOUSE" 
H$(5)="JIMMIE GILES" 
H$(6) = "G0RD0N JONES" 
H$(7)="BILL CAPECE" 
H$(8)="SWIDER" 
H$(9)="T0NY DAVIS" 
O$(0)="CHICAGO" 

0$(1)="VINCE EVANS" 
0$(2)="WALTER PAYTON" 
0$(3)="MATT SUHEY" 
0$(4)="MARGERUM" 
0$(5)="R0BIN EARL" 
0$(6)="BRAIN BASCHNAGEL" 
0$(7)="J0HN ROVETO" 
0$(8)="B0B PARSONS" 
0$(9)="D. WILLIAMS" 
PRINT TAB(10) "COIN TOSS. HEADS OR TAILS ? 



440 



450 
460 



470 
480 



910 



920 
930 



940 
945 



A$=INKEYS 
: IF A$<>"R" AND A$<>"K" THEN 440 ELSE IF 
A$="K" THEN PRINT "KICKOFF" 
P0=-1 

KK=-1 ELSE P0=1 
T=l 
KK=1 

PRINT "RECEIVE" 
GOTO 470 

PRINT "YOU LOST THE TOSS. "; O$(0); " 
CHOOSES TO RECEIVE." 
: P0=-1 
: KK=-1 
GOSUB 5400 

: GOSUB 5150 
Tl=1200 
: TT=T1 
: GOSUB 5000 
IF P0=-1 THEN 950 
IF T=0 THEN Y2=Y+10 
T=l 
D=0 

IF Y2>50 THEN Y2=50 
IF Y=>50 THEN GOSUB 5500 

: GOTO 950 
IF Y<-49 THEN 5700 
D=D+1 
: IF Y>=Y2 THEN D=l 
: Y2=Y+10 
IF D=5 THEN P0=-1 

: GOTO 950 
PRINT@263, D; 

PRINIta285, Y2-Y; 
GOSUB 5100 
GOSUB 5150 
GOTO 1000 
IF P0 = 1 GOTO 



ELSE IF T=l THEN Y2=Y-1C 



955 
9 65 



420 A$=INKEY$ 

: IF A$<>"H" AND A$<>"T" THEN 420 ELSE IF 
A$="H" PRINT "HEADS" ELSE PRINT "TAILS" 

430 IF RND(2)=1 PRINT "YOU WIN THE TOSS. WILL 
YOU RECEIVE OR KICKOFF ? "; ELSE 460 



IF Y2<-50 THEN Y2=- 
IF Y>49 GOTO 5700 
IF Y=<-50 GOSUB 5550 
: P0=1 
: GOTO 900 
D=D+1 
: IF Y<=Y2 THEN D=l 
: Y2=Y-10 
IF D=5 THEN D=l 
: P0 = 1 
: GOTO 900 
PRINT@263, D; 

PRINT@285, Y-Y2; 
GOSUB 5100 
GOSUB 5150 



10 
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p$ 



1(330 



1035 



: GO 10 SWV 
GOSUB 5600 

PRINT@384, ""; 
INPUT "OFF. PLAY" 
P$=LEFT$(P$, 2) 
PRINT@395, ""; 
1010 IF P$<>"LB" THEN 1100 ELSE PRINT "LONG BOMB" 

: IF RND(0X.9 THEN 1030 
1025 PRINT H$(l); " SACKED FOR A"; 
Y9=RND(15) 
P0=-1 

GOSUB 5200 
P0=1 

PRINT Y9 ; "YARD LOSS ! ! " 
Y=Y-Y9 

TT=TT-RND ( 10 ) -RND( 10 ) 
GOTO 900 
PRINT H$(l); " DROPS BACK." 
FOR ZZ=0 TO 99 
NEXT 

IF RND(0)>.9 THEN PRINT "HE SCRAMBLES 
FOR"; 

Y9=RND(20)-5 
GOSUB 5200 
PRINT Y9 
Y=Y+Y9 

TT=TT-RND ( 20 ) -RND ( 20 ) 
GOTO 900 
PRINT "THROWS TO "; H$(RND(3)+3) 
FOR ZZ=0 TO 500 
NEXT 

IF RND(0)<.3 THEN PRINT "CAUGHT FOR"; 
Y9=RND(20)+15 
GOSUB 5200 
PRINT Y9 
Y=Y+Y9 

TT=TT-RND(20)-RND(20) 
GOTO 900 
IF RNDC0X.09 THEN P0=-1 

PRINT "INTERCEPTED. RUN BACK"; 
Y9=RND(60) 
GOSUB 5200 
PRINT Y9; "YARDS." 
Y=Y-Y9 

TT=TT-RND(20)-RND(10) 
GOTO 900 
PRINT "INCOMPLETE." 
: TT=TT-RND(7)-RND(7) 
: GOTO 900 

IF P$<>"FG" THEN 1200 ELSE PRINT "FIELD 
GOAL"; H$(7); " KICK FROM" 50-Y+18 "YARDS." 
: TT=TT-RND(7)-RND(8) 
IF RND(0X.03 IHEN P0=-1 
PRINT "BLOCKED RUN BACK "; 
Y9=RND(20) 

IF Y9=20 THEN PRINT "FOR A TOUCHDOWN." 
Y=-55 

GOTO 965 ELSE GOSUB 5200 
PRINT Y9 " YARDS." 
P0=-1 
Y=Y-Y9 
GOTO 950 
IF RND(50)X-Y+40) THEN TS = IS+3 
PRINT "FIELD GOAL GOOD ! ! ! " 
P0=-1 

IF QQ=4 THEN 6050 ELSE GOSUB 5400 
GOTO 900 ELSE PRINT "FIELD GOAL NO GOOD." 
P0=-1 
D=0 

GOTO 900 
IF P$<>"HM" THEN 1300 
PRINT "HAIL MARY" 
. TT=TT-RND(7)-RND(7) 

PRINT HS(1); " THROWS TO "; H$(4); " IN THE 
END ZONE." ABS(Y-50) "YARDS" 
: FOR ZZ=1 TO 1500 
: NEXT 
IF RND(0)>.93 THEN Y=55 

PRINT "***COMPL£TE***" 
GOSUB 5500 
P0=-1 
D=0 

GOSUB 5400 
GOTO 950 
1220 PRINT "INCOMPLETE" 

: GOTO 900 
1300 IF P$O"D0" THEN 1400 
1302 PRINT "DOWN AND OUT" 

. TT=TT-RND(8)-RND(8) 
1310 PRINT H$(l); " PASSES TO "; H$(RND(3)+3) 
1315 IF RND(0X.03 THEN P0=-1 

: PRINT "INTERCEPTED. RUN BACK "; 
: Y9=RND(30) ELSE 1325 
1320 IF Y9=>27 PRINT "FOR A TOUCHDOWN." 
Y=-55 

GOTO 965 ELSE GOSUB 5200 
PRINT Y9" YARDS." 
D=0 

Y=Y-Y9+RND(20) 
GOTO 950 
IF RND(0X.50 PRINT "INCOMPLETE." 
: GOTO 900 



1106 



1202 
1210 



1330 PRINT "COMPLETE FOR "; 

Y9=RND(10)+2 

GOSUB 5200 

PRINT Y9 " YARDS." 

Y=Y+Y9 

GOTO 900 
1400 IF P$O"0T" THEN 1500 
1402 PRINT "OVER THE TOP RUN" 

: TT=TT-RND(20)-RND(20)-RND(20) 
1405 PRINT H$(RND(2)+1); " RUNS UP THE MIDDLE." 

FOR ZZ=0 TO 50 

NEXT 

PRINT "HE PICKS UP "; 

Y9=RND(8)-3 

GOSUB 5200 

PRINT Y9; "YDS." 

Y=Y+Y9 
1410 IF RND(0)<.01 THEN PRINT "FUMBLE !" 

FOR ZZ=1 TO 500 

NEXT 

IF RND(2)=1 THEN PRINT "RECOVERED. NO 
GAIN . " 

: GOTO 900 ELSE P0=-1 
: PRINT "PICKED UP BY "; O$(0); " ! RUN BACK 



Y9=RND(10) 

IF Y9=10 THEN Y=-55 

PRINT "FOR A TD." 

GOTO 965 ELSE GOSUB 5200 

PRINT Y9 "YARDS." 

GOTO 950 

1499 GOTO 900 

1500 IF P$<>"ES" THEN 1600 
1502 PRINT "END SWEEP" 

: TT=TT-RND(15)-RND(17)-RND(10) 
1507 PRINT H$(l); " HANDS OFF TO ' 



TT=TT-RND(12)-RND(12) 
: PRINT "PUNT"; H$(8); " PUNTS."; 
1915 IF RND(0X.04 IHEN PRINT "BLOCKED. 



RUN BACK 



Y9 " YARDS.' 
ELSE Y=Y+Y9 



"TOUCHBACK" 



H$(RND(2)+1); 



1510 IF RND(29)=1 PRINT "HE FUMBLES "; 
: IF RND(2)=1 PRINT "RECOVERED." 
: GOTO 900 ELSE PRINT "LOST." 
: P0=-1 
: GOTO 950 
1520 Y9=RND(12)-4 
GOSUB 5200 
Y=Y+Y9 

PRINT "HE GETS " Y9 " YARDS ON THE PLAY." 
GOTO 900 
1600 IF P$<>"DD" THEN 1700 
1602 PRINT "DRAW" 

: TT=TT-RND( 20 )-RND( 20 )-RND( 10 ) 
1605 PRINT "DELAYED RUN. "; H$(RND(2)+1 ) ; " 

CARRIES." 
1610 IF RND(0X.02 THEN PRINT "FUMBLE. "; 
: IF RNDC0X.5 THEN PRINT H$(0); " 
RECOVERS." 

: GOTO 900 ELSE PRINT O$(0); " RECOVERS. RUN 
BACK "; 

Y9=RND(25) 
P0=-1 

GOSUB 5200 
PRINT Y9 "SfARDS." 
Y=Y-Y9 
GOTO 950 
1620 PRINT "HE GETS "; 
Y9=RND(15)-5 
GOSUB 5200 
PRINT Y9 "YARDS." 
Y=Y+Y9 
GOTO 900 
1700 IF P$<>"SP" THEN 1800 
1702 PRINT "SCREEN PASS" 

: TT=TT-RND(15)+5 
1710 PRINT H$(l); " THROWS TO "; H$(RND(2)+1) ; 

: FOR ZZ=1 TO 300 
: NEXT 
1715 IF RND(0X.08 THEN PRINT "INTERCEPTED !" 

P0=-1 

FOR ZZ=1 TO 400 

NEXT 

Y9=RND(2)*RND(2)*RND(2)+RND(20) 

IF Y-Y9<-49 OR Y9>24 THEN PRINT "RUN BACK 
FOR A TOUCHDOWN !" 

Y=-55 

GOTO 965 ELSE GOSUB 5200 

PRINT "RUN BACK"; Y9 ; "YARDS." 

Y=Y-Y9 

GOTO 950 
1720 IF RND(0X.3 THEN PRINT "INCOMPLETE." 

: GOTO 900 
1730 PRINT "COMPLETE. HE GETS"; 

Y9=RND(30)-10 

IF Y9=20 THEN PRINT " A TOUCH DOWN !" 

Y=55 

GOSUB 5500 

GOTO 950 ELSE GOSUB 5200 

PRINT Y9; "YARDS." 

Y=Y9+Y 

GOTO 900 
1800 IF P$O"0M" THEN 1900 
1802 PRINT "OVER THE MIDDLE PASS" 
1900 IF P$<>"PP" THEN 2000 ELSE 



Y9=RND(30) 

IF Y9>28 PRINT "FOR A TOUCHDOWN 

Y=-55 

GOTO 965 ELSE P0=-1 

GOSUB 5200 

PRINT Y9 " YARDS." 

Y=Y-Y9 

GOTO 950 
1930 Y9=RND(30)+20 

GOSUB 5200 

PRINT "PUNT COVERS 

IF Y+Y9>49 THEN Y=j 
19 32 P0=-1 

: IF Y=30 THEN PRINT 
: GOTO 950 
19 35 P0=-1 

: IF RND(0X.3 THEN PRINT "FAIR CATCH BY "; 
0$(9) 

: GOTO 950 
1940 PRINT "CAUGHT BY "; 0$(9) 

: IF RND(0X.05 THEN PRINT "HE FUMBLES IT." 
: IF RND(0X.5 THEN PRINT "RECOVERED BY "; 
O$(0) 

GOTO 950 ELSE PRINT "RECOVERED BY "; H$(0) 

P0 = 1 

T=l 

GOTO 900 
1950 Y9=RND(20)-5 

: IF Y9=15 THEN Y9=Y9+RND(15) 
: IF Y9>28 THEN Y9=Y9+RND(50) 
1960 GOSUB 5200 

PRINT "HE RUNS IT BACK"; Y9 ; "YARDS." 

Y=Y-Y9 

GOTO 950 
PRINT 

: PRINT "DELAY OF GAME PENALTY OF " ; H$(0); 
". FIVE YARDS." 
: Y9=5 

: IF Y-Y9<-49 THEN Y=INT( (Y+Y-Y9)/2)+l ELSE 
Y=Y-Y9 

GOSUB 5100 

PRINT@285, Y2-Y; 

GOTO 1000 
GOSUB 5600 

PRINTS 384, ""; 

INPUT "DEFENSIVE PLAY "; P$ 

P$=LEFT$(P$, 2) 
3002 PRINT@401, ""; 

; if P$="PA" THEN PRINT "PASS" ELSE IF 
P$="RR" THEN PRINT "RUN" ELSE IF P$="FG" 
THEN PRINT "FIELD GOAL" ELSE IF P$="PP" THEN 
PRINI "PUNT" ELSE IF P$="PV" THEN PRINT 
"PREVENT" ELSE IF P$="GL" THEN PRINT "GOAL 
LINE" ELSE PRINT "NONE" 
3010 IF (D=4 AND Y<-20) OR (CS<TS AND CS>TS-4 AND 
TT<25 AND QQO0 AND QQ<>2 AND Y<-10) OR 
(TT<25 AND QQ=1) OR (QQ=3 AND TT<25 AND 
CS+4>TS) AND (Y<0) THEN IF Y>0 THEN ELSE 
PRINT "TRIES FIELD GOAL."; 0$(7); " KICKS 
FROM " Y+68 " YARDS IS "; 
: TT=TT-RND(10)-RND(10) ELSE GOTO 3040 
3020 IF P$="FG" THEN IF RND(0X.08 THEN 

P0 = 1 

PRINT "BLOCKED !!! RUN BACK "; 

Y9=RND(20) 

IF Y9=20 PRINT "FOR A TD !!!" 

Y=55 

GOTO 915 ELSE GOSUB 5200 

PRINT Y9 " YARDS." 

Y=Y+Y9 

GOTO 900 
3025 IF -RND(50)>Y THEN PRINT "GOOD." 

CS=CS+3 

P0=1 

IF QQ=4 THEN 6050 ELSE GOSUB 5150 

GOSUB 5400 
GOTO 900 
3030 PRINT "NO GOOD." 

P0=1 

D=0 

GOTO 950 

3040 IF (D=4 AND ABS(Y-Y2)>2 AND CS>TS AND TT>400 
AND QQO0 AND QQ<>2) OR (D=4 AND CS>TS) OR 
(D=4 AND Y- Y2>2) THEN PRINT 0$(8); " 
PUNTS"; 

: TT=TT-RND(15)-RND(15) ELSE 3065 
3045 IF P$="PP" AND RND(0X.13 THEN P0=1 

D=l 

PRINT ".IT'S BLOCKED. RUN BACK "; 

Y9=RND(40) 

IF Y9>38 PRINT "FOR A TOUCHDOWN!" 

Y=55 

GOTO 915 ELSE GOSUB 5200, 

PRINT Y9 

Y=Y+Y9 

GOTO 900 
3050 PRINT " FOR "; 
: Y9=RND(22)+20 
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GOSUB 5200 
PRINT Y9 " YARDS." 
P0 = 1 
D=0 

3055 IF Y-Y9<-49 THEN PRINT "TOUCHBACK." 
: Y=-30 
: GOTO 3060 
3057 Y=Y-Y9 

PRINT "CAUGHT BY "; H$(9) 
IF RN"D(0X.07 THEN PRINT "FUMBLED! "; 
IF RND(0)<.5 THEN PRINT "RECOVERED BY "; 
O$(0) 
T=l 
PO=-l 

GOTO 950 ELSE PRINT "RECOVERED BY "; H$(0) 
GOTO 900 ELSE Y9=RND(20)-5 
PRINT "RUN BACK "; Y9; "YARDS" 
Y=Y+Y9 
3060 Y2=Y~10 

: GOTO 900 
3065 Q=RND(100) 

: IF Q<35 PRINT 0$(1); " PASSES TO " 
0$(RND(3)+3) "." ELSE 3120 
3070 Q=RND(115) 

: IF P$="PA" OR P$="PV" THEN Q=Q-15 
3080 IF Q<55 PRINT "INCOMPLETE." 
: TT=TT-RND(7)-RND(7) 
: GOTO 950 
3090 IF Q<60 PRINT "INTERCEPTED. RUN BACK "; 

: TT=TT-RND(10)-RND(10) ELSE GOTO 3110 
3095 Y9=RND(30) 

IF Y9=30 THEN PRINT "TOUCHDOWN !!!" 
D=0 
Y=55 

GOTO 915 
PO=l 

GOSUB 5200 
PRINT Y9 " YARDS." 
Y=Y+Y9-10 
D=0 

GOTO 900 
3110 PRINT "COMPLETE FOR "; 
Y9=RND(30) 

IF Y9>28 PRINT "A TOUCHDOWN!" 
Y=-55 

TT=TT-RND(15)-RND(15) 
GOTO 965 ELSE GOSUB 5200 
PRINT Y9 " YARDS." 
Y=Y-Y9 

TT=TT-RND(15)-RND(15)-RND(15) 
GOTO 950 
3120 IF QQO0 AND QQ<>2 AND CS<TS AND TT<400 THEN 

3065 ELSE PRINT 0$(RND(2)+1) " RUNS." 
3130 IF RNDC0X.055 THEN PRINT "HE FUMBLES. 
RECOVERED BY "; 

: TT=TT-RND(15)-RND(15) ELSE 3150 
3135 IF RNDC0X.5 THEN PRINT H$(0); ". RUN BACK 

' Y9=RND(20) 
IF Y9=20 PRINT "FOR A TOUCHDOWN." 
Y=55 

GOTO 915 ELSE PO=l 
GOSUB 5200 
PRINT Y9 " YARDS." 
D=0 

GOTO 900 
3140 PRINT O$(0); ". NO GAIN ON THE PLAY." 

: GOTO 950 
3150 Y9=RND(16)-2 

: IF P$="RR" OR P$="GL" THEN Y9=Y9-3 
3155 IF Y9>10 THEN Y9=Y9+RND( 10) 

IF Y9>18 THEN Y9=Y9+RND(20) 
IF Y9>33 THEN Y9=Y9+RND(30) 
IF Y.9> 53 THEN Y9=Y9+RND(40) 
3160 GOSUB 5200 

: PRINT "HE GETS " Y9 " YARDS ON THE PLAY." 
: Y=Y-Y9 

: TT=TT-RND(12)-RND(12)-RND(12)-RND(12) 
: GOTO 950 
5000 CLS 

PRINTS0, STRING$(64, 140); 
PRINT@320, STRING$(64, 140); 
FOR Z=2 TO 15 
SET(0, Z) 
SET( 127, Z) 
NEXT 

5020 PRINT@110, "DEF.P / RR.PA.GL"; 
PRINT5174, "PV.PP.FG"; 
PRINT@238, "OFF.P / FG.PP.ES"; 
PRINT@302, "DD.HM.SP.OT.DO.LB"; 
5030 PRINT@257, "DOWN -"; 1, "YARDS TO GO -"; 10; 
5040 PRINT@211, "QRT -"; 

: PRINT@220, "TIME -"; 
5100 PRINTS 65, "SCORE 

: "; H$(0); " -" TS "* "; O$(0); " -"CS; 
5105 PRINT@129, "BALL ON THE "; 

: IF Y<0 PRINT Y+50 " IN "; H$(0); " 

TERRITORY. "; ELSE IF Y>0 PRINT 50-Y " 
IN "; O$(0); " TERRITORY. "; ELSE PRINT 

Y+50; CHR$(217); 
5110 PRINT@193, ""; 

: IF PO=l PRINT H$(0); "'S BALL. "; ELSE 



PRINT O$(0); "'S BALL."; 
5115 IF TT<T1 AND TT>T1-41 THEN TT=TT-40 
5120 T1=INT(TT/100)*100 
: IF TT<0 THEN TT=0 

: GOTO 5120 ELSE PRINT@226, INT(TT/100) 
CHR$(8) ":"; 
: T$=STR$(TT) 
: T$=RIGHT$(T$, 2) 
: PRINT T$ " "; 
: IF TT=0 THEN 5800 
5125 PRINT@216, QQ+1; 

: IF QQ=4 THEN PRINT@296, "OVERTIME"; 
5130 RETURN 
5150 A$=INKEY$ 

: PRINT@980, "HIT SPACE BAR TO CONTINUE"; 
5175 IF INKEY$="" THEN 5175 ELSE PRINT@384, 
CHR$(31); 
: RETURN 
5200 IF PO=l THEN IF Y+Y9>49 THEN Y9=50~Y 

: RETURN ELSE RETURN ELSE IF Y-Y9<-49 THEN 
Y9=50+Y 

: RETURN ELSE RETURN 
5300 FOR Z=l TO 1000 
: NEXT 
: RETURN 
5400 IF PO=-l THEN 5430 
5410 PRINT 

: PRINT "KICKOFF RUN BACK BY "; H$(9); " 
FROM THE " RND(10)-5 " TO THE "; 
Y7=RND(35)-40 
IF Y7=-25 Y=55 
PRINT "TOUCH DOWN ! ! !" 
GOSUB 5150 
GOSUB 5500 

RETURN ELSE PRINT Y7+50 
Y=Y7 

IF Y<-49 THEN Y=-30 
Y2=-20 

RETURN ELSE Y2=Y+10 
RETURN 
5430 IF TT>0 THEN PRINT@65, "SCORE 

: "; H$(0); " -" TS "* "; O$(0); " -"CS; 
: PRINT@704, "" ; 
5440 INPUT "DO YOU WANT TO TRY AN ONSIDE KICK"; 
A$ 

: IF LEFT$(A$, 1)="Y" THEN IF RND(0)<.2 THEN 
PRINT "YOU RECOVERED IT AT THE "; O$(0); " 
49 YARD LINE." 
: PO=l 
: Y=l 
: T=0 

: RETURN ELSE PRINT O$(0); " RECOVERS THE 
BALL AT THE 50 YARD LINE." 
: PO=-l 
: Y=0 
: RETURN 
5450 PRINT 

: PRINT "KICKOFF RUN BACK BY "; 0$(9); " 
FROM THE " RND(10)-5 " TO THE "; 
Y7=-RND(35)+50 
IF Y7=15 Y=-55 
PRINT "TOUCH DOWN!" 
GOSUB 5150 
GOSUB 5550 

GOTO 900 ELSE PRINT 50-Y7 
Y=Y7 

IF Y>49 THEN Y=30 
Y2=20 

RETURN ELSE Y2=Y-10 
RETURN 

5500 PRINT "TOUCHDOWN, "; H$(0); " !!!" 
: TS=TS+6 

: IF QQ=4 THEN 6050 
5505 PO=~l 

PRINT "EXTRA POINT. "; H$(7); " KICKS." 
GOSUB 5300 

IF RND(0)>.13 THEN PRINT "IT'S GOOD!" 
TS=TS + 1 
GOSUB 5150 
GOSUB 5400 

RETURN ELSE PRINT "NO GOOD." 
GOSUB 5175 
GOSUB 5400 
RETURN 

5550 PRINT "TOUCHDOWN, " O$(0); " !" 
: CS=CS+6 

: IF QQ=4 THEN 6050 
5560 D=l 

PO=l 

PRINT "EXTRA POINT. "; 0$(7); " KICKS." 
GOSUB 5300 

IF RND(0)>.13 THEN PRINT "IT'S GOOD." 
CS = CS+1 
GOSUB 5150 
GOSUB 5400 

RETURN ELSE PRINT "NO GOOD." 
GOSUB 5150 
GOSUB 5400 
RETURN 
5600 PRINT@448,; 

: IF RNDC0X.97 THEN RETURN ELSE PRINT 
"PENALTY FLAG DOWN. "; 
: GOSUB 5300 



5630 IF RND(0X.5 THEN PRINT "IT'S ON "; O$(0); 

: PP=1 ELSE PRINT "IT'S ON "; H$(0); "." 

: PP=2 
5640 P8=RND(100) 

5650 IF P8<30 PRINT "HOLDING - "; 
Y9=RND(2)*5 
PRINT Y9 " YARDS." 
GOTO 5680 
5655 IF P8<50 PRINT "ILLEGAL PROCEDURE - 5 

YARDS." 

: Y9=5 

: GOTO 5680 
5660 IF P8<70 PRINT "CLIPPING - 15 YARDS." 

: Y9=15 

: GOTO 5680 
5665 IF P8<95 PRINT "OFFSIDE - 5 YARDS." 

: Y9=5 

: GOTO 5680 
5670 GOTO 5640 
5680 IF PP=1 THEN IF Y9+Y>49 THEN 

Y=INT((Y+INT(Y+Y9))/2)-l ELSE Y=Y+Y9 ELSE IF 

Y-Y9<-49 THEN Y=INT((Y+INT(Y-Y9))/2)+l ELSE 

Y=Y-Y9 
5690 IF PP=2 THEN PRINT@285, Y2-Y; ELSE 

PRINT@285, Y-Y2; 

5699 GOSUB 5100 
: RETURN 

5700 PRINT "SAFETY!" 

5710 IF PO=-l THEN TS=TS+2 

: IF QQ=4 THEN 6050 ELSE PRINT "KICKOFF 
RETURN TO THE "; 
Y9=RND(20)+20 
PRINT Y9 " YARD LINE." 
PO=l 
Y=Y9-50 

GOTO 900 ELSE CS=CS+2 

IF QQ=4 THEN 6050 ELSE PRINT "KICKOFF 
RETURN TO THE "; 
: Y9=RND(20)+20 
: PRINT Y9 " YARD LINE." 
: PO=-l 
: Y=50-Y9 
: GOTO 950 
5800 IF QQ=0 THEN GOSUB 5150 

PRINT@384, CHR$(31); "END OF FIRST PERIOD" 
GOSUB 5300 
TT=1200 
T1=TT 
QQ=1 

GOTO 5100 
5820 IF QQ=1 THEN GOSUB 5150 

PRINT@384, CHR$(31); "END FIRST HALF" 
D=0 

GOSUB 5300 
TT=1200 
T1=TT 
QQ=2 

IF KK=1 THEN PO=-l 

PRINT "YOU KICKOFF TO START THE SECOND 
HALF." ELSE PRINT "YOU RECEIVE THE SECOND 
HALF KICKOFF." 
: PO=l ELSE 5830 
5825 GOSUB 5400 

: GOSUB 5100 
: GOTO 900 
5830 IF QQ=2 THEN GOSUB 5150 

: PRINT@384, CHR$(31); "END OF THE THIRD 
QUARTER" 
GOSUB 5300 
TT=1200 
T1=TT 
QQ=3 

GOTO 5100 

5840 IF QQ=3 THEN PRINT@384, CHR$(31); "END 
FOURTH QUARTER" 
: GOTO 6000 
5850 IF QQ=4 THEN PRINTS384, CHR$(31); "END 
OVERTIME" 
: GOTO 6050 
6000 IF TSOCS THEN 6050 ELSE QQ=4 
: PRINT@296, "OVERTIME"; 
: PRINT@384, CHR$(31); "FIRST TO SCORE 
WINS." 
TT=1200 
T1=TT 
D=0 

GOSUB 5300 
GOTO 100 
6050 FOR Z=l TO 20 

PRINT@990, "FINAL"; 
FOR ZZ=1 TO 200 
NEXT 

PRINT@990, CHR$(197); 
FOR ZZ=1 TO 200 
NEXT 
NEXT 

PRINT@960, CHR$(30); "DO YOU WANT TO PLAY 
AGAIN ? (Y/N)"; 
6060 A$=INKEY$ 

. IF A$= .. r . THEN RUN ELSE IF A$= „ N „ mm CLg 

: END ELSE 6060 
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Assembly Language Programming 



Machine Language Sort, Part II 



by William Barden, Jr. 

®Wllliam Barden. Jr. 



Last month we were discussing a one-dimensional 
string array sort using Color Computer assembly lan- 
guage. This month we'll continue the discussion of how a 
typical assembly-language program is designed and 
implemented, using the SRTSTR sort routine as an 
example. 

**SRTSTR INSTANT REPLAY** 

Here's a recap for those of you that might not have last 
month's issue. SECSRT uses a "bubble-sort" approach to 
sort a one-dimensional string array of any length and any 
size of strings. 

We saw how string arrays were organized as array 
lists of a "header" and 5-byte string "descriptor blocks" 
that defined the elements of the string array, as shown in 
Figure 1 . The first byte of each descriptor block is the string 
length, while the third and fourth bytes hold the address of 
the string. The string may be embedded in a BASIC state- 
ment, or may be in the "string storage" area in high RAM. 



-6 

-5 



VARPTR (A$(0)) - 



ARRAY NAME 



DISPLACEMENT 
TO NEXT ARRAY 



1(# OF DIMENSIONS) 



# OF ENTRIES 



A$(0) LENGTH 



''////////////, 



A$(0) ADDRESS 



'////////////, > 



y//////////A 



'///////////A 



A$(1) LENGTH 



1 



ENTRY FOR 
A$(0) 



i(1) ADDRESS 



A$(N) LENGTH 

V//////////A 



A$(N) ADDRESS 



V//////////A 



N 



/ 



ENTRY FOR 
A$(1) 



N 



> LAST ENTRY 



/ 



Figure 1. String Array Variable List 



The header of the string array holds the number of 
entries in the array along with additional information about 
the array, including the name. 



The location of the first string descriptor, and there- 
fore, the string array list, can be found by VARPTR(A$(0)). 
The argument returned will be the address of the first string 
descriptor. 

We discussed the design and flowcharting steps in 
SRTSTR in last month's column, and came up with a work- 
ing flowchart as shown in Figure 2. The bubble-sort algo- 
rithm in the flowchart compares the entries in the string 
array one pair at a time, moving from top to bottom. A 
"lighter" bottom entry (one with lower ASCII weight) results 
in a swap of the two descriptor blocks. Multiple passes are 
made through the list until no entries have been swapped, 
indicating that all entries have been sorted in "ascending 
sequence." Only the descriptor blocks are swapped; the 
strings remain untouched. 



G> 



(°) — i, 




NENT - HOLDS # ENTRIES REMAINING 

CNGE = CHANGE FLAG 

SIS-FIRST STRING 

S2S- SECOND STRING 

LEN - LENGTH OF SMALLER STRING 



Figure 2. SRTSTR Flowchart 

**. . . AND NOW FOR THE CODING** 

If we've done our design and flowcharting properly, 
the assembly-language coding should be easy. The catch 
here is that it should be easy if you've done considerable 
6809E programming. If you haven't, you'll have to struggle 
painfully through, In this case a good design is very impor- 
tant to minimize your frustration while you get experience 
in coding. 
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Let 


me 


share 


with you, 


as near 


ly as 1 can, the steps 


used to translate the flowchart and design into code, th 


code of SRTSTR is 


shown in 


Listing 


1. 


3F00 






00100 




ORG 


$3F00 










00110 


****** 


******* 


************************************** 








00120 


* STRING ARRAY SORTER, 


SORTS 1-D STRING ARRAY * 








00130 


* ENTRY: LOC 


$3FFE,F=VARPTR(A$(0)) * 








00140 


* EXIT 


A$ 


ARRAY SORTED * 








00150 


****** 


t-k-k'k'k-kit-k-k-k-k-ifk-k-k-k-k 


**************************** 


3F00 


BE 


3FFE 


00160 


SRTSTR 


LDX 


$3FFE 


GET POINTER 


3F0E 


34 


10 


00170 




PSHS 


X 


SAVE IN STACK 








00180 


* START OF NEW PASS, EITHER FIRST OR ONE OF MANY 


3F05 


EE 


E4 


00190 


SRT010 


LDU 


,S 


GET PNTR TO ARRAY LIST 


3F07 


AE 


5E 


00200 




LDX 


-2,1) 


GET # OF ENTRIES 


3F09 


30 


IF 


00210 




LEAX 


-1,X 


SUBTRACT ONE FOR PAIRS 


3F0B 


4F 




00220 




CLRA 




FOR CHANGE FLAG 


3F0C 


34 


12 


00230 


SRT015 


PSHS 


A,X 


SAVE IN STACK 








00240 


* THIS 


IS START OF COMPARE ENTRY LOOP 


3F0E 


A6 


C4 


00250 


SRT020 


LDA 


>u 


GET LENGTH OF Sl$ 


3F10 


27 


2A 


00260 




BEQ 


SRT060 


IF NULL, SWAP 


3F12 


A6 


C4 


00270 




LDA 


»tl 


GET SI? LEN 


3F14 


E6 


45 


00280 




LDB 


5,U 


GET S2$ LEN 


3F16 


A0 


45 


00290 




SUBA 


5,U 


S1?LEN-S2$ LEN 


3F18 


24 


02 


00300 




BHS 


SRT030 


GO IF Sl$ LEN>= S2$ LEN 


3F1A 


E6 


C4 


00310 




LDS 


,u 


USE SMALLER LENGTH 








00320 


* NOW HAVE SENSE AND TOUCH 


3F1C 


34 


01 


00330 


SRT030 


PSHS 


CC 


SAVE SENSE 


3F1E 


A£ 


42 


00340 




LDX 


2,U 


GET Sl$ ADDR 


3F20 


10AE 


47 


00350 




LDY 


7,U 


GET S2$ ADDR 


3F23 


6D 


45 


00360 




TST 


5,U 


TEST S2$ LEN 


3F25 


26 


04 


00370 




BNE 


SRT040 


GO IF NOT NULL 


3F27 


32 


61 


00380 




LEAS 


1,S 


RESET STACK 


3F29 


20 


29 


00390 




BRA 


SRT070 


DO NOTHING 


3F2B 


A6 


80 


00400 


SRT040 


LDA 


,X+ 


GET Sl$ BYTE 


3F2D 


A0 


A0 


00410 




SUBA 


>* + 


Sl$-S2$ 


32F2 


27 


04 


00420 




BEQ 




GO IF EQUAL 


3F31 


32 


61 


00430 




LEAS 


1,S 


RESET STACK 


3F33 


20 


05 


00440 




BRA 


SRT050 


BYPASS SENSE PULL 


3F35 


5A 




00450 


SRT045 


DECB 




DECREMENT # OF BYTES 


3F36 


26 


F3 


00460 




BNE 


SRT040 


GO IF NOT DONE 








00470 


* DONE 


HERE EITHER FROM 


UNEQUAL OR AT END 


3F38 


35 


01 


00480 




PULS 


CC 


GET SENSE 


3F3A 


23 


18 


00490 


SRT050 


BLS 


SRT070 


GO IF Sl$ <= S2$ 








00500 


* SWAP 


CALLED 


FOR EITHER FROM NULL Sl$ OR NORMAL 


3F3C 


AE 


42 


00510 


SRT060 


LDX 


2,U 


GET Sl$ ADDRESS 


3F3E 


10AE 


47 


00520 




LDY 


7,U 


GET S2$ ADDRESS 


3F41 


AF 


47 


00530 




STX 


7,U 


SWAP 


3F43 


10 AF 


42 


00540 




STY 


2,U 




3F46 


A6 


C4 


00550 




LDA 


>u 


GET Sl$ LENGTH 


3F48 


E6 


45 


00560 




LDB 


5,U 


GET S2$ LENGTH 


3F4A 


E7 


C4 


00570 




STB 


,u 


SWAP 


3F4C 


A7 


45 


00580 




STA 


5,U 


SWAP 


3F4E 


EA 


45 


00590 




ORB 


5,U 




3F50 


EA 


E4 


00600 




ORB 


,S 


MERGE IN PREVIOUS 


3F52 


E7 


E4 


00610 




SIB 


,S 


SET CHANGE FLAG 








00620 


* CONTINUE THROUGH LIST 


UNTIL END 


3F54 


33 


45 


00630 


SRT070 


LEAU 


5,U 


POINT TO NEXT ENTRY 


3F56 


AE 


61 


00640 




LDX 


1,8 


GET # ENTRIES 


3F58 


30 


IF 


00650 




LEAX 


-1,X 


DECREMENT BY 1 


3F5A 


AF 


61 


00660 




STX 


1,S 


STORE AGAIN 


3F5C 


26 


B0 


00670 




BNE 


SRT020 


GO IF NOT AT END 








00680 


* AT END OF ONE PASS HERE 


3F5E 


A6 


E4 


00690 


SRT080 


LDA 


,S 


GET CHANGE FLAG 


3F60 


32 


63 


00700 




LEAS 


3,S 


RESET STACK 


3F62 


26 


Al 


00710 




BNE 


SRT010 


GO IF SWAP OCCURRED 


3F64 


32 


62 


007 20 


SRT090 


LEAS 


2,S 


RESET STACK 


3F66 


39 


0000 


00730 
00740 




RTS 
END 




BACK TO BASIC 



Listing 1 

START IN THE MIDDLE 

First of all, I started in the middle, with the actual com- 
pare and swap. This is the heart of SRTSTR, and many 
people start at the main functions and add the beginning 
and end later. 

I knew that I would have to compare a string of bytes 
with another string of bytes in two separate locations. The 
comparisons would be made of two bytes with the same 
relative locations in each string, and some kind of pointer 
would have to be incremented for both strings to point to 
the next byte. 

The first thing that the above action makes a 6809E 
programmer think of is "indexing" using the 6809E index 
registers, X and Y. The X and Y index registers can be used 
in an "auto increment mode" where they are automatically 
incremented by one (or two) after each operation. As there 
are two index registers and two strings, using the index 
registers seems a natural for the comparison. The scheme 
is shown in Figure 3, where X points to the first string for 



the compare, and Y points to the second string for the 
compare. The actual compare is done by the two instruc- 
tions at SRT040, and is really a subtract. The " + " sets 
auto-increment mode for X and Y and automatically adds 
one to X or Y AFTER the LDA and SUBA. The auto- 
increment mode is used in lieu of an instruction like INCA 
orlNCB. 



STACK POINTER 



WZMl 



mm 



umiil 



7MW< 




.X ANDY 'DISPLACEMENT- 
IS THE SAME 



X POINTS AT 
«- SUCCESSWELY HIGHER BYTES 



H'lsl | ■Isl Ishhl j 



„ ,. Y POINTS AT 

SUCCESSIVELY HIGHER BYTES 

|t| h|i|s| I ilsl \s\TTTr 



Figure 3. X and Y Index Register Use 

Unfortunately, the 6809E has only two index registers 
to point to data. In SRTSTR we have to point to three basic 
things — the current pair of string descriptors in the array 
list (one address is sufficient, as they follow each other) 
and the current strings to be compared (two addresses). 
How can we also point to the current pair of string descrip- 
tors as well? We could save the addresses in memory vari- 
ables and load X and Y as required. Another way, however, 
is to use the User Stack Pointer register. 

SS THIS-A U STACK? 

Let's digress, somewhat, and discuss 6809E stacks. 
The 6809E and other microprocessors have traditionally 
used a RAM memory stack. The stack is a 50 to 100 byte 
area of RAM set aside to hold temporary results, interrupt 
addresses, and subroutine addresses. 

Whenever a BSR, JSR, or similar type of branch to 
subroutine instruction is executed in the 6809E, the return 
address after the branch to subroutine is automatically 
saved in the stack. A subsequent RTS (Return from Sub- 
routine) at the end of the subroutine code "pulls" the return 
address and causes a branch back to the instruction fol- 
lowing the branch to subroutine. 

A PSHS instruction "pushes" one or more 6809E reg- 
isters into the stack; a PULS instruction retrieves the 
registers. 

During interrupts, the "environment" (registers and 
condition codes) and interrupt point address are automat- 
ically saved in the stack. An RTI (Return from Interrupt) 
restores the registers and returns to the point of interrupt. 
The interrupt occurs with no effect on any "background" 
program. 

The stack used for all of the above operations is called 
the "S" stack in the 6809E and is equivalent to similar types 
of stacks in other microprocessors, such as the 8080, 
Z-80, and 6502. The "S" stack uses a stack pointer register 
to define the RAM memory address for the stack operation. 
The stack "builds down" in RAM as data is pushed onto 
the stack and the S register is adjusted accordingly. Data 
pulled from the stack adjusts the stack pointer upward. 

The 6809E uses another stack, which operates simi- 
larly to the "S" stack. This "U", or User, stack can be 
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defined by loading a U stack pointer register to define the 
stack area. Unlike the S stack, there are no hardware 
operations (such as BSR or interrupt address pushes) that 
automatically use the U stack. The U stack is for the user 
only; the user (programmer) may use the U stack for any 
data he wants. The advantage of using the U stack is that 
many instructions allow the use of the U stack pointer in 
identical fashion to the X/Y index registers or S stack 
pointer. 

To get back to the thread of our discussion . . . 
Because the U stack can be defined by the user to be any 
block of memory and "because there are many instructions 
that operate in a U indexed addressing mode, we'll use it 
to advantage in SRTSTR. We'll use the U stack pointer as 
a pointer to the current pair of string descriptor blocks in 
the string array, as shown in Figures 3 and 4. 







LOW 


# ENTRIES 


„ 


LEN 




W/M/i 


A$(0) 


■ ADDR - - 




w//////. 




LEN 




'/////////, 


A$(1) 


■ ADDR - . 




'////////// 


HIGH 





77777m 



777777777. 



TTTTTm, 



ADDR 



/////////, 



+ 2 
+ 3 
+ 4 
+ 5 




Figure 4. U Stack Use 

The U stack pointer is initially set up to point to A$(0) 
at SRT010. As compares are made, it is incremented by 5 
to point to the next set of string descriptors. The LEAU 5,U 
instruction at SRT070 does the increment. Swaps, when 
called for, are done by using the instructions at the SRT060 
area. These are largely U stack indexed instructions such 
as "LDY 7,U" which use the U stack pointer plus a dis- 
placement to determine the "effective address" to be used 
in the instruction. 

The S stack register is used for subroutine addresses 
and for temporary storage in SRTSTR, as shown in Figure 
5. When SRTSTR is called from BASIC, the return point in 
the BASIC interpreter is saved in the S stack. Immediately 
upon entry to SRTSTR, the address of the string array is 





pushed into the S stack (PSHS X). During SRTSTR execu- 
tion, the S stack is used to hold the working variable for the 
number of entries, the "change flag," and a "sense" vari- 
able, as shown in the figure. 

ACCUMULATORS 

The 6809E has two accumulators, A and B, Which are 
used to perform arithmetic operations, shifts, and other 
operations. The A accumulator in SRTSTR is generally 
used as a "working" accumulator, while B holds the length 
of the smaller string during the compare loop (SRT040). 

DETAILS, DETAILS . . . 

Now that we've defined what the registers and stacks 
are used for, let's take a look at the actual code. Bear in 
mind that this code was the result of several "iterations." 
The original code was modified several times as the result 
of finding errors during debugging. It is moderately hard 
code, and took hours to prepare. 

First of all, the pointer to the string array list is loaded 
into the X register from locations $3FFE and $3FFF. The 
pointer is then saved in the S stack by the PSHS X. This 
pointer was stored in the BASIC program after the address 
was found by a VARPTR(A$(0)). The VARPTR address 
points to A$(0), with the "header" information in the seven 
bytes before A$(0). The S stack at this point was set and 
maintained in BASIC. 

The code from SRT010 through one instruction before 
SRT090 is the main loop of SRTSTR. It defines one com- 
plete pass through the array list and is executed until the 
change flag is zero. 

At SRT010, the U stack pointer is loaded with the array 
address from the S stack. The S stack pointer points to the 
array address at this point, as shown in Figure 5. 

Next, the number of entries is picked up from the 
header and loaded into X. Note that the "effective 
address" is the U stack pointer-2. One is subtracted from 
the number of entries in X by the LEAX - 1 ,X, which loads 
the contents of X minus one into X. This is identical to a 
decrement X. The A accumulator is cleared for the change 
flag. The PSHS at SRT015 saves the number of entries and 
change flag in the S stack as shown in Figure 5. The num- 
ber of entries will be adjusted throughout the SRT010 loop, 
and the change flag will be set for any significant change. 

The code from SRT020 through one instruction less 
than SRT080 is the loop that compares each pair of 
descriptor blocks. During this loop, U points to the current 
pair and is adjusted by 5 to access all pairs. 

The 7 instructions at SRT020 find the smaller of the two 
string lengths and puts the smaller length in B. They also 
test for a null entry in S1$, which results in an automatic 
swap (see the flowchart). 

At SRT030, the A register holds the "sense" of the 
length of S1$ and S2$; this is a subtract of the two lengths 
and will be used if the compare of the two strings stops 
because the end of the smaller string was reached; In this 
case a swap will be made if the S1$ length is greater than 
the S2$ length. This sense is really held in the condition 
codes, which reflect the result of the subtract in the carry 
and zero flags. The condition codes are saved in the S 
stack at SRT030. 



Figure 5. S Stack Use 
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The X and Y index registers are now loaded with the 
addresses of the two strings from the current pair. The U 
stack pointer points to the first byte of the 10 bytes of the 
pair at this point. If the S2$ string is a null, no swap is made 
and a branch is made to SRT070. Before the branch, the 
S stack is "reset" by adding one to the stack pointer. This 
action is in lieu of a PULS CC. 

The code from SRT040 through one instruction after 
SRT045 is the compare loop for the two strings. At this 
point X and Y point to the two strings and B holds the 
smaller length. The compare is actually a subtract of each 
of the two bytes with automatic indexing on X and Y If any 
two bytes are not equal, a branch is made to SRT050. If the 
branch is made, the A register holds the "sense" of the 
comparison. If the length count in B is decremented 
beyond 0, the sense is "pulled" from the stack and used at 
SRT050. 

The swap code at SRT060 uses the U stack pointer in 
indexing modes to swap the two descriptor blocks in the 
string array. Actually, only the length and addresses in the 
descriptor blocks are swapped. This is sufficient as the 
remaining two bytes are used only for temporary storage. 
If the swap is done, the change flag is set by ORing in the 
current value and the length of S1$ and S2$. 

The location at SRT070 is entered after every com- 
pare, swap or not. An LEAU 5,U increments the U stack 
pointer by 5 to point to the next pair. The working count of 
the number of entries is decremented by one. If this is non- 
zero, the loop at SRT020 is reentered. If the count is zero, 
the code at SRT080 is executed. 

The code at SRT080 is executed at the end of every 
pass. The change flag is tested and if non-zero, another 
pass through SRT010 is made. If the change flag is zero, 
the stack is reset and a return is made back to the BASIC 
interpreter. 

DEBUGGING AND DOCUMENTATION 

Last month we discussed the steps in developing any 
assembly-language program. We've covered design, flow- 
charting, and coding up to this point. We'll give short shift 
to debugging here, as it would make an interesting column 
all by itself. Debugging normally takes at least as long as 
coding and assembling, and in larger programs occupies 
the major part of the total job. 

Documentation in many programs, large or small, is 
terrible. Many programmers don't want to take the time to 
document programs, either in comments for the code itself 
or in a written specification. Suffice it to say that good doc- 
umentation pays for itself in "program maintenance" and 
operating ease. Of course, I've documented SRTSTR to 
death because of this column, but minimum documenta- 
tion should include a comment on just about every line of 
the assembly language code, plus a "header block" 
describing the subroutine. 

USING SRTSTR 

At the beginning of these two columns I promised you 
a "neat" program. I think SRTSTR fills the bill because it 
does perform a useful task on a string array — a high- 
speed sort of any sized array with any sized entries. 

SRTSTR is relocatable, and can be placed anywhere 
in memory you desire. The listing shown in Listing 2 is a full 



blown Extended Color BASIC exerciser for SRTSTR. It 
moves the code from DATA statements to the $3F00 area, 
generates a 101 -element string array filled with random 
data, calls SRTSTR, and then displays the sorted array. 
Use it as a model for your own use of SRTSTR. 

100 ' SRTSTR EXERCISER #2 
110 CLEAR 5000,&H3EFF 
120 A=0 

N=0 
1=0 
J=0 
130 DATA 190,63,254,52,16,238,228,174,94,48,31,79,52, 

18,166,196,39,42,166,19 6,23,0,69,160,69,36,2,230, 

196,52,1,174,66,16,174,71 
140 DATA 109,69,38,4,50,97,32,41,166,128,160,160, 

39,4,50,97,32,5,90,38,243,53,1,35,24,174,66,16, 

174,71,175,71,16,175,66,166 
150 DATA 196,230,69,231,196,167,69,234,69,234,228, 

231,228,51,69,174,97,48,31,175,97,38,175,166,228, 

50,99,38,161,50,98,57 
155 B=0 

160 FOR I=&H3F00 TO &H3F66 
170 READ A 

: POKE I, A 
175 B=B+A 
180 NEXT I 
190 IF BO11108 THEN PRINT "INVALID VALUES IN DATA 

STATEMENTS - CHECK!" 

: STOP 
200 DIM A$(10) 
210 DEFUSR0=&H3F00 
220 PRINT "***RAND0M ARRAY***" 
230 FOR 1=0 TO 100 
240 IF RND(10)=5 THEN GOTO 280 
250 FOR J=0 TO RND(15) 
260 A$(I)=A$(I)+CHR$(RND(58)+32) 
270 NEXT J 
280 PRINT A$(I) 
290 NEXT I 
300 N=VARPTR(A$(0)) 
310 POKE &H3FFE,INT(N/256) 
320 POKE &H3FFF,N-INT(N/256)*256 
330 PRINT "***S0RT STARTING***" 
340 A=USR0(0) 

350 PRINT "***S0RT ENDED***" 
360 FOR 1=0 TO 100 
370 PRINT A$(I) 
380 FOR J=0 TO 50 

: NEXT J 
390 NEXT I 

Listing 2 

If you ran the BASIC version of SRTSTR is last month's 
column you'll find that the assembly-language version of 
SRTSTR runs somewhat faster— hundreds of times! So 
you see, all of this trouble in Color Computer assembly- 
language is worth while. (In spite of the disgruntled reader 
from Parvenu, CA who insisted that 6809E assembly lan- 
guage beX-rated.) 

Next month we'll have more assembly-language top- 
ics. In the meantime, try your own hand at some assembly- 
language coding. You'll be pleasantly surprised. 
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Graphic Keys 



Robby Bennett 
608 Taft Avenue 
Cheyenne, WY 82001 



Model I/III Head Cleaner 



Robert E. Brown 

2 Christina Drive, East 

Schenectady, NY 12303 



I am the proud owner of a TRS-80 Model III. I fully 
enjoy the capabilities of this computer. 

This program will convert the text keys to special char- 
acters or graphics. 

NOTE: I have disabled the BREAK key so that the user 
will not interrupt CHR$(21). You will need to press CLEAR 
to end the program. 

5 GOSUB 85 

7 LPRINT CHR$(21); 

10 CLS 

12 PRINT CHR$(23); 

15 G$=CHR$ ( 10 )+"READY"+CHR$ ( 10 )+">" 

20 PRINTCHR$ ( 14); "READY" ;CHR$( 10 );">"; 

30 X$=INKEY$ 

: IF X$="" THEN 30 

31 POKE 16409,1 

33 IF X$=CHR$(31) THEN PRINT CHR$(15 ) ;CHR$(21 ) ; 

: POKE 1639 6,201 

: END 
35 IF X$=CHR$(13) GOSUB 80 
40 IF X$=CHR$(8) AND POS(0)=<2 THEN 30 
45 IF X$=CHR$(8) PRINT X$; 

: GOTO 30 
50 IF A3C(X$)<32 OR ASC(X$)>91 THEN 30 
60 IF C%=2 LET X$=CHR$(ASC(X$)+97) 
62 IF C%=1 LET X$=CHR$(ABS(X$)+161) 
70 PRINT X$; 

: GOTO 30 
80 PRINT G$; 

: RETURN 
85 PRINT "1=SPECIAL CHARACTERS" ;CHR$( 10) ; "2=GRAPHIC 

CHARACTER'S" 
87 INPUT "ENTER YOUR CHOICE " ;C% 
90 IF C%<1 OR C%>2 THEN 85 
95 POKE 16396,175 

: POKE 16397,201 

: RETURN 




Sometime soon (I hope), TRS-80 Microcomputer 
News will realize the difference between the memory- 
mapped Model I and the port-based Model III. Enclosed is 
a revision to Mare I Sooke's head cleaning program which 
WILL run on both Model I and III. In addition, it moves the 
head to a randomly-chosen track on the cleaning diskette 
so as to get maximum use from the investment. I hope that 
you will publish more of this kind of program listing so that 
we Model III users can study the differences between the 
two RADIO SHACK computers. 

All teasing aside, TRS-80 Microcomputer News is ter- 
rific! I look forward to its arrival each month. Keep up the 
good work! 

P.S. This program is loosely based on another head 
cleaning program for the Model I (only) which appeared in 
the March 1982 issue of 80-U.S. Journal, pages 82-83, but 
the listing enclosed is quite different and bears no resem- 
blance to that program by William H. Scott, Jr. 

MODEL I/III DISK HEAD CLEANER PROGRAM 

5 ' CLEAN1/3 REVISED BOB BROWN 3/1/82 

10 ' *** INSERT # OF LAST DRIVE (0-3) ON YOUR 

SYSTEM (BELOW) 
15 LA3TDRIVE=1 
20 CLS 

: PRINT 

: PRINT "REMOVE ALL DISKS FROM DRIVES AND 

PRESS <ENT£R>"; 

: INPUTA 
25 FOR N=0 TO LASTDRIVE 

: IF N=0 THEN DR=1 ELSE IF N=l THEN DR=2 

ELSE IF N=2 THEN DR=4 ELSE IF N=3 THEN DR=8 
30 ' *** DETERMINE IF MOD 1 OR MOD 3 
35 IF PEEK( 29 3)073 THEN M=l ELSE M=3 
40 ' *** SELECT A RANDOM TRACK FOR HEAD 

POSITIONING 
45 IF M=l THEN TR=RND(35) ELSE TR=RND(40) 
50 ' *** SELECT THE DRIVE 

55 IF M=l THEN POKE 14304, DR ELSE OUT 244, DR 
60 ' *** ISSUE "RESTORE" TO MOVE HEAD TO TRACK 
65 IF M=l THEN POKE 14316,3 ELSE OUT 240,3 
70 > *** L ooK FOR FDC "NOT BUSY" STATUS 
75 IF M=l THEN ST=PEEK(14316) ELSE ST=INP(240) 
80 IF (ST AND 1)=1 THEN 75 
85 ' *** SELECT DRIVE AGAIN 

90 IF M=l THEN POKE 14304, DR ELSE OUT 244, DR 
95 ' *** MOVE HEAD OUT SOME PLACE 
100 IF M=l THEN POKE 14319 ,TR ELSE OUT 241, TR 
105 IF M=l THEN POKE 14316, 19 ELSE OUT 240,19 
110 • *** CHECK FDC STATUS AGAIN 
115 IF M=l THEN ST=PEEK( 14316) ELSE ST=INP(240) 
120 IF (ST AND 1)=1 THEN 115 
125 PRINT"INSERT CLEANER DISK IN DRIVE #";N;" 

THEN HIT <ENTER>"; 
130 INPUT A 

135 ' *** ACTIVATE DRIVE FOR ABOUT 30 SECONDS 
140 FOR 1=1 TO 3300 

145 IF M=l THEN POKE 14304, DR ELSE OUT 244, DR 
150 NEXT I 
155 NEXI N 
160 PRINT"*** CLEANING COMPLETED ***" 

: END 
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Computer Customer Service 




The theme of the NEWSLETTER this month is GRAPH- 
ICS and we decided to present some of the fundamentals 
of graphics. We won't make experts out of you, but we just 
might give your imagination something to work with. Our 
discussion here will be about the Models I and II. 

Graphics can be broken down into three general 
categories: 

1. Line Printer Graphics 

2. Pixel Graphics 

3. Character Graphics 

Line printer graphics refers to pictures, drawn either 
on the printer or the video screen, made up of characters 
printed on specific positions on the screen. This type of 
graphic is like a still photograph. Some examples of line 
printer graphics include bar charts for business and wave 
form charts for scientific applications. Among the more friv- 
olous uses are party banners and simple pictures. 

To draw line printer graphics, you must first lay out 
your picture on a video worksheet. This way you can easily 
determine the position for each character and the char- 
acter you want to use. Here is a sample program. 



10 CLS 

: CLEAR 
: PRINT 
20 PRINT " 
30 PRINT " 
40 PRINT " 
50 PRINT " 
60 PRINT " 
70 PRINT 
80 PRINT "** 
90 PRINT " ** 
100 PRINT " 
110 PRINT " 
120 PRINT " 
130 PRINT " 
140 GOTO 140 



Try it and see the message we've got for you! ! To print 
on your line printer, change the PRINTs to LPRINTs. Line 
Printer graphics have their function, but let's see what we 
can do with the other types of graphics. 

So far we've learned how to print single characters in 
specific positions on the screen to form pictures. Now let's 
examine what makes up a graphics character. The basic 
element of a graphics character is the pixel. This leads us 
to our next type of graphics — pixel graphics. Each graph- 
ics block is made of six sections, each called a pixel. The 
Model I and III screen will display sixty-four characters 
across one line. A full screen has sixteen (16), sixty-four 
(64) character lines. Each character, however, is two pixels 
wide. This means that there are 64*2 or 128 pixels across. 
Each character is three pixels high, giving us 16*3 or 48 
pixels up and down. When we write programs using pixel 
positions we will refer to positions to 127 across and to 
47 up and down. We will also refer to the screen in terms 
of X and Y coordinates, where X is a horizontal position on 
the screen and Y is a vertical position on the screen. The 



three basic commands used in pixel graphics are "SET", 
"RESET", and "POINT". 

Let's start with the "SET" command. SET is used to 
turn on the pixel at a particular point. The correct syntax is 
SET(X.Y). For example, SET (35,25) lights up the block 
thirty-six pixels from the left of the screen and twenty-six 
pixels from the top of the screen. The RESET command 
turns off the pixel. The syntax for RESET is RESET(X.Y). 
Using the same example above RESET(35,25) turns off the 
pixel we turned on with the SET command, Try it yourself. 
Here is a simple program using the SET and RESET 
commands. 

10 CLS 
20 X=35 

: Y=25 
30 SET(X, Y) 
40 FOR Z=l TO 150 

: NEXT 
50 RESET(X, Y) 
60 FOR Z=l TO 150 

: NEXT 
70 GOTO 30 

The program flashes the pixel at the 35,25 position. 
Remember the position puts this at the thirty-sixth posi- 
tion from the side of the screen and the twenty-sixth posi- 
tion from the top of the screen. Notice the timing loops in 
lines 40 and 60. Without these loops the flashing of the 
pixel would be almost imperceptible. Of course this is a 
very simple demonstration of the SET and RESET com- 
mands. By adding one line we can make the blinking 
dot move. 

65 X=X+5: IF X>127 THEN X=X-127 

To make the dot move diagonally we can add a sec- 
ond line. 

67 Y=Y+5: IF Y>47 THEN Y=Y-47 

Notice that when the dot reaches the bottom of the 
screen it reappears at the top of the screen. Can you make 
it bounce instead? By using various combinations of SET 
and RESET commands, one can design some relatively 
sophisticated graphics programs. Another command used 
in conjunction with the SET and RESET commands is the 
POINT command. POINT looks at a specified graphics 
block and can tell you if it is turned off or on. The syntax 
used is POINT(X.Y). If the block is "on" the value returned 
by POINT is a - 1 . If the block is "off" then POINT will return 
a 0. This is useful if you want to check to see if a specific 
block is "on" or "off" and have the BASIC program take 
some action when the desired conditions are met. 

Now let's discuss character graphics. Character 
graphics take advantage of the TRS-80's ability to print a 
complete graphics block as a single character. These are 
known as character strings or as used in a BASIC pro- 
gram, CHR$(X). In the TRS-80 Model I character set there 
are 64 graphics characters, made up of different combi- 
nations of lit pixels. There are also space compression 
codes on both the Model I and III. Space compression 
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codes are a series of blank spaces from to 63, which you 
can print as a single character string. The space compres- 
sion codes are CHR$ 192 to 255 on both the Model I and 
III. The Model III has the same graphics characters as the 
Model I plus a special character set that has such char- 
acters as the English pound sign, the "happy face," a little 
man, a little woman, and many others. Any of these could 
be used in your graphics programs. These special char- 
acters are the same codes as the space compression 
codes, 192 to 255. However, there is a software switch to 
turn them on and off. To access these special characters 
you must turn them on with PRINTCHR$(21). If you do not 
PRINT CHR$(21) then the character string that you will 
print will be a space compression code. To turn off the spe- 
cial graphics, simply PRINT CHR$(21) a second time. 

With various combinations of the 64 graphics codes, 
you can do many of the same things that you can do with 
pixel graphics, but because you are printing six pixels at 
a time, character graphics will run faster. Here is a pro- 
gram that demonstrates the use of both pixel and charac- 
ter graphics. 



70 



110 



CLS 

FOR y=l TO 47 
FOR X=l TO 127 
SET(X, Y) 
NEXT X 

: NEXT Y 
CLS 

FOR Y=l TO 1024 
PRINT CHR$(191); 
NEXT Y 

PRINT@540, " THE END 

GOTO 110 



The program will white out the screen using pixel 
graphics, clear the screen, and white it out again using 
character graphics. You can easily see the speed advan- 
tage of the character graphics. 

Here are two short programs that demonstrate the use 
of character graphics, one for both the Model I and III and 
the last one for the Model III only. 

Model I and III Graphics Program 

10 CLS 

: CLEAR 2000 
20 PRINT@384, STRING$(64, 191); 

: PRINT@896, STRING$(64, 191); 
30 PRINT@540+X, CHR$(174); CHR$(140); CHR$(140); 

CHR$(153); 
40 PRIN1@540+(X-1), CHR$(193); 
50 X=X+1 

: Z=Z+1 
60 IF Z=>80 THEN GOSUB 90 
70 IF Z=>180 THEN 130 
80 GOTO 20 
90 PRINT@540+Y, CHR$(174); CHR$(140); CHR$(140); 

CHR$(157); 
100 PRINT@540+(Y-1), CHR$(193); 
110 Y=Y+1 
120 RETURN 
130 PRINT@501, CHR$(191); 

: PRINT@885, CHR$(191); 
140 PRINT@128, "WATCH OUT!!! BARRIER AHEAD!!!"; 
150 IF Z=260 THEN 170 
160 GOTO 20 
170 PRINT@920, "THE END"; 

: GOTO 170 



60 PRINT@540+(X-1), CHR$(32); 
70 PRINT@520+(Y-1), CHR$(32); 
80 PRINT@512+(Z-1), CHR$(32); 
90 X=X+1 

: Y=Y+1 

: Z=Z+1 

100 IF X=100 THEN 140 

110 IF X=-28 THEN 160 

120 PRINT@512, "WILL THEY CATCH THEIR PET?"; 

130 GOTO 30 

140 X=-78 

: Y=-64 

: Z=-64 
150 GOTO 30 
160 PRINT 

: PR1NT@51 2, "GOTCHA!! !" 

: CHR$(254); CHR$(234); CHR$(253) 
170 GOTO 170 

We hope you have learned a little bit about the graph- 
ics capability of the Models I and III and will be able to 
expand on these basic ideas to write your own graphics 
programs. 




Effective June 1, 1982 
Computer Customer Services 
Address and Phone Number 

8AM to 5PM Central Time 

Computer Customer Services 

400 Atrium, One Tandy Center 

Fort Worth, Texas 76102 

Model I/III Business Group 817-870-2041 

Model 11/16 Business Group 817-870-2042 

Languages and Compilers 817-870-2044 

Color and Pocket Computer Group 81 7-870-21 50 

Hardware and Communications Group . . . 817-870-2571 

Educational Software 817-390-3302 

Games, Books, and New Products 817-870-2271 



Model III Graphics Program 

10 REM REMEMBER TO PRINT CHR$(21)T0 TURN ON THE 

SPECIAL GRAPHICS 
20 CLS 

: CLEAR 1000 

: PRINT CHR$(23) 
30 PRINT@540+X, CHR$(234); 
40 PRINT@520+Y, CHR$(253); 
50 PRINT@512+Z, CHR$(254): 
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CompuServe 



New E-Mail Service 



Editor's Note: The CompuServe Information Service is one 
of the largest information and entertainment services avail- 
able to owners of personal computers and computer ter- 
minals. With each issue of TRS-80 Microcomputer NEWS, 
various features of CompuServe will be discussed. 

The CompuServe Information Service is sold at Radio 
Shack stores nationwide and in Canada. 

New E-Mail Gets the Message Fast! 

E. is not your everyday mail carrier. Bad weather, 
postal strikes and federal holidays don't slow him down. 

He's not much for idle chatter, but he'll quickly tell you 
who your mail is from, what it's about and when it's about 
and when it arrived. 

He's considerate. An obviously full mailbox will not be 
stuffed to overflowing. 

And — wonder of wonders— -after you've read it, he'll 
throw away what you don't want and file the rest. 

E-MAIL, or electronic mail, is to the computer age 
what the Pony Express was to the frontier era: an innova- 
tive way to get there first and fastest. 

CompuServe's newly-revamped electronic mail sys- 
tem is a logical, simplified, and user-friendly system that 
offers an inexpensive and efficient method for communi- 
cating. Users access the E-MAIL feature by first making a 
local phone call to hook into the CompuServe network. 
After logging on, electronic mail can be accessed directly 
through the Home Services, Business and Finance, and 
Personal Computing menus. 

E-MAIL is stored by subject headings, which also 
include the sender's name and the date sent, allowing the 
receiver to peruse his "mailbox" at a glance and select the 
order in which the items will be read. Each "mailbox" will 
store a maximum of 20 items, and those which do not 
receive the command to be filed will be deleted. No need 
to worry if you're the absent-minded type — you must 
respond to the question of filing with a yes or no response 
to each piece of mail before dealing with the next. This 
method eliminates problems arising from users putting off, 
and then not recalling, the action taken on a particular 
piece of mail. 

Under the revamped system, mail can be added to 
existing files or new files can be started, depending on the 
user's commands. In every instance, the user is given 
feedback on what action has been taken and E-MAIL com- 
mands are consistent with the commands used in other 
areas. The electronic mail feature uses standard editors 
— ICSandFILGE. 

Electronic mail is easy to use, but how practical is it? 
The cheapest phone call from Columbus to Los Angeles 
(after 5 p.m.) costs 42 cents for the first minute and 30 
cents for each additional minute — for a grand total of 
$18.12 plus tax for a one hour call. While it's unlikely that 



the use of electronic mail would supplant such a long 
phone conversation, it would solve the problem — cheaply 
— of callers who continue to miss one another's calls. 

Unlike other systems, CompuServe's system does not 
require that both sender and receiver have computers. 
Two terminals are all that are needed with the CompuServe 
network. Inexpensive, portable terminals can be used by 
those on the go to connect with CompuServe almost any- 
where and at anytime. Compared to overnight mail ser- 
vices — one of which charges upwards of $20 per item — 
the cost of using E-MAIL is very attractive indeed. 

Its speed, combined with the features of privacy, easy 
access and storage capabilities, may well make electronic 
mail one of the best communications options available. 



CompuServe 



Page EMM 



Create or edit message using: 

i FILGE editor 

2 ICS editor 
- 3 File from disk area 

4 Serai aessage from workspace 

5 Inforaation on FILGE 

6 Inforaation on ICS editor 

Last aetui page. Key digit 
or H for previous menu. 



CompuServe at 29,000 Mark and Still Growing 

More than 29,000 people, from all walks of life and 
from all areas of the country, are now customers of the 
CompuServe Information Service (CIS). 

The 29,000 figure reflects the actual number of paying 
customers and does not include demonstration accounts, 
media accounts, or employees. 

CIS started in August 1979 and reached the 10,000 
customer mark in May 1981. 

The geographic distribution of customers shows users 
in every state and throughout Canada. The largest con- 
centration of customers are in and around New York City 
and the eastern seaboard, the "Silicon Valley" area of Cal- 
ifornia and the areas around Los Angeles, populous areas 
of the South, and industrial cities of the Midwest. 

CIS provides information and entertainment services 
to owners of personal computers and computer terminals 
in the main subject areas of news, finance, entertainment, 
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home and family information, electronic mail, and personal 
computing. 

Customers access CompuServe through a local tele- 
phone call in more than 300 U.S. cities and in Canada. 

CIS is sold in Radio Shack Computer Centers and 
electronics stores throughout the U.S. and Canada and 
through various computer and data equipment 
manufacturers. 

CIS can be used with all popular makes of personal 
computers and many computer terminals. 

Decwars: Interactive Space Game on CompuServe 

The vast and inscrutable galaxy appears tranquil, but 
Stormcrow knows the surface calm conceals many dan- 
gers. A check with other Federation forces confirms his 
fears: the Klingons have already established 10 starbases 
while his own human forces lag five behind. 




Klingons — large, forceful creatures with round faces 
and evil eyes — are not the only threat to the human Fed- 
eration's survival. Immense caverns of nothingness dot the 
skies, assuring instant death to all who fall within these 
black holes. An evil Romulan concealed in a cloaking 
device may make surprise attacks on humans and Kling- 
ons alike. And even neutral planets take pot shots at care- 
less captains who venture to within two sectors of their 
locations. 

Undeterred by what he hopes is a temporary setback 
for Federation forces, Stormcrow puts out a jaunty APB 
over his subspace radio: "Tell all Stormcrow is here. Pre- 
pare to die, Empire monsters!" 

Encouraged by the plucky captain's verbal swagger- 
ing, the Federation's Nimitz ship radios back: "Now is the 
time for all good men to come to the aid of their planet!" 

Battered Federation forces are substantially strength- 
ened by Stormcrow's entry. His undamaged ship brings 
with it 5000 units of shield energy to protect it from phaser 
and photon torpedo hits. His as yet unimpaired photon tor- 
pedo tubes pose a serious threat to the enemy due to their 
10-sector hit range. And, perhaps, most important to the 
ailing Federation forces, his strength can be used to acti- 
vate tractor beams to tow damaged ships away from 
danger. 



A challenge to battle from an Empire ship named 
Jackal is put on hold while Stormcrow moves to capture a 
neutral planet. A transfer of materials and energy builds it 
into a starbase with the power to fire upon enemy ships 
within a five-sector range. 

Meanwhile, his sub-space radio keeps Stormcrow 
informed of developments in other parts of the galaxy. An 
empire ship has built three more starbases and captured 
another planet. At 1000 points per base and 100 per 
planet, the enemy has added 3100 points to his individual 
score. 

On the home front, the Nimitz rallies to make a deadly 
hit on an Empire ship, and the Demon is destroyed. "Let's 
party," he declares triumphantly to Stormcrow. But before 
the galactic celebration can take place, the Nimitz, too, 
bites the Stardust — the victim of a sneak attack by the 
Empire ship, Cobra. 

Designed for up to 10 players, Decwars is accessed 
under main menu item 2, Home Services. The first person 
to log onto the game chooses a Federation ship, while the 
next player gets an Empire ship. This alternation of ships 
continues so that sides are as evenly divided as possible. 

Arranged in a grid of 75 by 75 sectors, Decwars' gal- 
axy allows for freedom of movement. Ships can move from 
sector to sector to defend themselves and to attack enemy 
installations and ships. 

Players are free to enter and leave the game as 
desired. And though death — as with the valiant Nimitz — 
may come as an instantaneous shock, it is a temporary 
fate. Destroyed ships may immediately log back into the 
game to begin racking up new scores in the perpetual bat- 
tle between the forces of good and evil. 

Questions and comments about the CompuServe 
Information Service can be sent to Richard A. Baker, edi- 
torial director, CompuServe Information Service, P.O. Box 
20212, Columbus, Ohio 43220 or through Feedback on the 
User Information menu. 



The Decwar PRE-GAME feature 

DECWAR provides a Pre-game feature to allow: 

- New players to view the help file uithout entering the current 
game. 

- Experienced players to check the status of a current game 
before choosing a side and ship. , 

- Players to submit Gripes uithout entering the game. 

The commands currently active within the Pre-game section are: 
Activate Gripe Help News Points Quit 
Summary Time Users 

The ACTIVATE command (valid only in the pre-game) is used to 
exit the pre-game section and enter the normal ship setup stage. 
The pre-game can be recognized from the 'PG>' command prompt, as 
well as the DECHPG program name. 

P6> ACTIVATE 
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Dow Jones 



I \#'%JI 




Busy business travelers can catch more than planes 
at New York's La Guardia airport these days . . . now they 
can catch the latest stock, bond, and option prices. 

In the airport's supper level shopping area there is a 
Business Information Center that features Dow Jones 
News/Retrieval. Travelers stop to use this up-to-minute 
source of reliable business and financial information when- 
ever they have a spare moment. Many of them keep up 
with their investments by retrieving Dow Jones Quotes and 
the news that moves the stock market. 

In most cases, their interest in quotes is not new; these 
"stock-watchers" are used to getting their quotes from The 
Wall Street Journal. They know that the quality they expect 
from the Journal is also available electronically with News/ 
Retrieval. 

Continuously updated price information, with a mini- 
mum of a 15 minute delay from the floor of the exchange, 
is available for common and preferred stocks and warrants 
of four U.S. exchanges: New York, American, Pacific, and 
Midwest. Subscribers can access composite and 
exchange prices as well as individual prices for over 6,000 
companies listed on these exchanges or traded in the 
over-the-counter market. 

In addition, users can access corporate bond prices 
from three exchanges — New York, American, and Pacific. 
Foreign bonds are available from the New York Stock 
Exchange. 




Options are from four exchanges — the composite of 
the Chicago Board of Options Exchange, and the Ameri- 
can, Pacific, and Philadelphia Stock Exchanges. 

For all the above, Dow Jones Current Quotes include 
previous day's close, opening price, high, low, latest price 
and volume. 

Dow Jones Quotes are also available for the national 
over-the-counter market (NASDAQ), with bid and ask 
prices updated six times each day. Volume is updated 
once each business day at approximately 6 p.m. Eastern 
Time. Daily updates are also available for mutual funds 
and U.S. Treasury issues. 

Many News/Retrieval customers find historical stock 
quotes useful for relating stock price trends to news devel- 
opments on companies, and for other methods of invest- 
ment analysis. Historical quotes are available for common 
and preferred stocks and warrants on the four major U.S. 
stock exchanges — New York, American, Midwest and 
Pacific — and for the national OTC market. High, low, close, 
and volume figures are provided. OTC quarterly and 
monthly summaries provide high bid and low bid, while 
daily summaries provide bid and ask. Both give volume. 
Users are charged only for the time they are signed on to 
the system, there are no per-quote charges. Users with 
screens or printers that accept at least 72 characters per 
line can save time and money by accessing up to five 
quotes simultaneously. This requires special passwords. 
Call Dow Jones Customer Service if you wish to change 
your password to receive multiple quotes. 

Software Adds Power 

Special software packages, such as Videotex, also 
enable users to turn their micro-computers into "mini stock 
analysis laboratories." Analyzing market trends with the aid 
of a personal computer can help the serious investor 
decide when it is time to buy, sell, or sit on the sidelines. 




DOW TONES 
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Peripherals 



Graphics Subroutines 



The TRS-80 Digitizer is highly mobile, capable of 
being placed almost anywhere, and at any angle. The dig- 
itizer "assumes" that the X axis of the world is perpen- 
dicular to the edge of the traverse arm, while the Y axis is 
parallel to that edge. 



INITIALIZE RS-2.32 



Drawing 1 




-Y 



Not only is this not a valid assumption, but it is frequently 
most inconvenient. You may not always be able to 
"exactly" position the digitizer on the X-Y axis of the mate- 
rial you are digitizing. What is needed is a set of routines 
which allow you to set up the digitizer where it is conve- 
nient, and then tell the computer where the X and Y axes 
are. Other things you may wish to do with the numbers the 
digitizer is giving the computer is to scale them, and/or off- 
set them. The following sample routines can be used to 
accomplish these tasks. 

GETTING DIGITIZER INFORMATION INTO 
THE COMPUTER 

The first thing we have to be able to do is to get infor- 
mation into the computer. The Digitizer manual provides 
routines for all TRS-80s capable of RS-232 output, plus a 
routine for Model I TRS-80s using the cassette port. Here 
is the portion of the Model I/III RS-232 routine which is 
needed to get the information from the Digitizer and trans- 
late it to X-Y coordinates (we ran it on a 48K two drive 
Model III with RS-232); 



100 

110 
120 
130 
140 
150 



RADIO SHACK DIGITIZER INPUT ROUTINE 
MODEL I/III VERSION FOR RS-232 
COPYRIGHT 1982 TANDY CORPORATION 

INITIALIZATION PROGRAM 



160 DEFINT I-N 

170 ' 

180 

190 * 

200 OUT 232 

210 OUT 233 

220 OUT 234 

230 ' 

300 GOSUB 1 

310 GOTO 300 

READ ON CHARACTER FROM RS-232 



85 

252 



'300 BAUD 

'8 BIT, NO PARITY, 2 STOP BITS 

'GET DIGITIZER INPUT IF ANY 



10010 ' 

10020 J=INP(234) 

: IF J<127 THEN 10020 
10030 J=INP(235) AND 127 
10040 RETURN 
10050 ' 

11000 ' GET AN 8-DIGIT STRING OF COORDINATES 
11010 ' 
11020 GOSUB 10020 

: IF J<>88 THEN 11020 
11030 D$="" 

FOR 1=1 TO 8 

GOSUB 10020 

D$=D$+CHR$(j) 

NEXT 

RETURN 
11040 ' 
12000 
12010 * 
12020 DE=0 
12030 FOR 1=0 TO 3 
12040 J=ASC(MID$(HX$, I+l : 
12050 IF J>9 LET J=J-7 
12060 DE=DE +J * 16 [ (3-1) 
12070 NEXT I 

12080 IF DEX32767 LET DE-DE-65536 
12090 DE=DE*.01 
12100 RETURN 
12110 ' 

13000 ' GET (X,Y) COORDINATES AND DISPLAY 
13010 ' 

13020 GOSUB 11000 
13030 HX$=LEFT$(D$,4) 
13040 GOSUB 12000 
13050 X=DE 

13060 HX$=RIGHT$(D$,4) 
13070 GOSUB 12000 
13080 Y=DE 
13090 PRINT USING "LOCATION: (###.##, ###.##)"; 

X, Y 
13100 RETURN 



CONVERT 4 HEX DIGITS TO DECIMAL 



1)) -48 



If you run this routine, with the digitizer set up accord- 
ing to the instructions in the manual, the computer will print 
X and Y values each time you press the Send switch. 
Notice we did not have to use SETCOM to initialize RS-232, 
the program did it for us, automatically. 

AXIS ROTATION 

The idea behind axis rotation is that we can have the 
computer accept the X-Y values sent from the digitizer, and 
then mathematically rotate those values to fit some new 
X-Y coordinate set. 

We will assume that the digitizer is set up to input infor- 
mation in the X-Y axis set represented in drawing 2 by AEB, 
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where E is the origin (point where both X and Y are zero), 
the line AE represents the Y axis of the digitizer, and the 
line EB represents the digitizer's X axis. Further, we 
assume that the actual image being digitized has the same 
origin (E), but that the line CE represents the image's Y 
axis, and the line ED represents the image's X axis. 




Drawing 2 

What we need to do is select some point on the image's X 
axis (we will use the point marked in the diagram) and 
relate that point to the digitizer's coordinate system. After 
all the smoke clears from doing this, we find that we have 
two formulae, one translates the digitizer's X values into the 
appropriate image X value, and the other translates the 
digitizer's Y values into appropriate Y image values. Here 
are the formulae: 

Y'=(Y-(X*(Y0/X0))*(X0/SQR(X0*X0+Y0*Y0)) 
X'=(X/(X0/SQR(X0*X0+Y0*Y0))+(Y'*(Y0/X0)) 

If we examine these formulae, we see two common 
elements: 

Y0/X0 and X0/SQR(X0*X0+Y0*Y0) 

Our subroutine to compute the values we need to 
rotate the axes is: 

49000 ' ROUTINE TO DETERMINE ROTATION VALUES 
49010 * 
49020 CLS 

: PRINT "AXIS ROTATION USING X AXIS" 
49030 PRINT "PLACE THE DIGITIZER CURSOR ON THE 

COMMON ORIGIN (0,0) AND PRESS THE RESET 

BUTTON ON THE BACK OF THE DIGITIZER" 
49040 PRINT "THIS SETS THE DIGITIZER'S ORIGIN TO 

MATCH THE ORIGIN OF YOUR MATERIAL." 
49050 PRINT "PLACE THE DIGITIZER'S CURSOR ON THE 

X - AXIS OF THE IMAGE TO BE DIGITIZED (MOVE 

THE CURSOR AT LEAST TWO INCHES TO THE RIGHT 

OF THE ORIGIN.)" 
49060 PRINT "PRESS THE SEND SWITCH." 
49070 GOSUB 13000 'GET X,Y COORDINATES 
49080 X0=X 

: Y0=Y 
49090 T=Y0/X0 'FIRST TRANSLATION ELEMENT 
49100 C=X0/SQR(X0*X0 + Y0*Y0) 'SECOND ELEMENT 
49110 PRINT "AXIS ROTATION COMPLETE." 
49120 RETURN 

To see how this works, make the following additional 
changes to the original program and add the subroutine: 

300 GOSUB 49000 
310 GOSUB 13000 
320 Y=((Y-X*T)*C) 



330 X=(X/C+Y*T) 

340 PRINT USING "ROTATED (###.##, ###.##)' 

350 GOTO 310 



X, Y 



Now when you run the routine, you will be asked to input a 
single point on the image's X axis. From that point on, any 
time you press the Send switch, the program will display 
two sets of X and Y values, first, the values in the Digitizer's 
X-Y system and then in the image's X-Y system. 

To use this rotation feature in your programs, remove 
lines 13090 and 340. These are the lines which print the 
X-Y values. Now change line 350 to read: 

350 RETURN 

The rotated X-Y value is available for whatever purpose 
you wish after you do a GOSUB 310. 

MOVING THE ORIGIN 

What happens if the item you are digitizing is larger 
than the area the traverse arm can cover, and the image's 
origin is not inside the traverse arm area? Obviously we 
may have some problems making the X and Y values out- 
put by the Digitizer correspond to the X-Y values of the 
image you are digitizing. 

We solve this by setting the digitizer's origin (set by 
pushing the reset switch on the digitizer) to a point on the 
image to be digitized that has known X-Y values. Now we 
tell the program what the known image X and Y values 
were. The program can now adjust the points output by the 
digitizer to the image's coordinates. Here is the subroutine 
to input the image X-Y values: 



YO; 
! ';YO 
XO; 
';XO 



REM SUBROUTINE TO OFFSET X~Y VALUES 
50010 CLS 

50020 PRINT "Y-OFFSET EQUALS"; 
50030 INPUT "ENTER NEW VALUE: 
50040 PRINT "X-OFFSET EQUALS"; 
50050 INPUT "ENTER NEW VALUE: 
50060 RETURN 



Now all we have to do is offset the input points. We do 
this by adding the offset values to the X and Y values we 
computed in lines 320 and 330: 

320 Y=((Y-X*T)*C) + YO 
330 X=(X/C+Y*T) + XO 

To add the offset routine, simply use: 
305 GOSUB 50,000 
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Model I III 



Three-Dimensional 
Graphics Package 



Charles E. Burton, Ph.D. 
1720 South Deframe Court 
Denver, CO 80228 



This material was converted from an article by F. C. 
Crow in BYTE Magazine, March and April, 1981. My pro- 
gram has most of the features outlined in that article except 
hidden surface/line removal. The readers can add that fea- 
ture if they desire. The software is written in Model I 
TRSDOS 2.3 Disk BASIC. However, it should be easily con- 
verted to run on a cassette system by .removing the OPEN 
and CLOSE statements and by replacing the PRINT #1 
and INPUT #i statements with PRINT #-1 and INPUT 
#-1 statements. Also, I believe that it should run directly 
on a Model III. 

The software is fairly well structured and easy to fol- 
low. It is modularized into small subroutines, with the most 
used routines at or near the front of the program. That for- 
mat has a tendency to speed up the execution somewhat 
since the interpreter starts its search for lines from the 
beginning of the program, but it does make the program 
read backwards. 

This program will give you a very powerful tool for 
creating and exploring three dimensional objects. 

After you have entered the program, type: 

RON <ENI'ER> 

You will see the menu screen: 



COMMANDS : 

1-- START OVER 

2 — DEFINE OBJECT 

3— READ OBJECT 

4— ENTER EYE POINT 

5— ENTER CENTER OF INTEREST 

6—ENTER WINDOW 

7— DRAW PICTURE 

8— QUIT 
COMMAND TO EXECUTE: 



Comer 












Points 


X 




Y 




Z 


1 


10 




10 




10 


2 


10 




-10 




10 


3 


-10 




-10 




10 


4 


-10 




10 




10 


5 


10 




10 




-10 


6 


10 




-10 




-10 


7 


-10 




-10 




-10 


8 


-10 




10 




-10 


Face Vertexes 










Face 1 


1 


2 




3 


4 


Face 2 


1 


5 




6 


2 


Face 3 


5 


8 




7 


6 


Face 4 


8 


4 




3 


7 


Face 5 


8 


5 




1 


4 


Face 6 


2 


6 




7 


3 



The first thing we will want to do is to define an object. 
For your first object, let's draw a cube. A cube has eight 
corner points or vertices and six faces (each face is a 
polygon). 



Enter a 2 to get the Define Object option. The program 
will ask you for a file name, (pick one), the number of points 
in the object (8), and the number of polygons in the object 
(6). You will then be asked for the coordinates of each 
point, and then for the number of vertices for each polygon 
(four for each in our case) and the point numbers in clock- 
wise order for each polygon. 

After you have input all of the requested data, the 
computer will store the data on disk. 

The next step is to read the data from the disk since 
the program does not seem to store all the values during 
definition. The program will ask for the object file name (the 
same one you used to defined the object) and a position 
for the object. Since we want to view the object at the 
origin, input the points: 0, 0, 0. 

Next we will define our "eye point." The eye point is 
where you are in relation to the object. To start, use an eye 
point of 0, 0, 40. 

We next define the "center of interest." That is which 
single point in the object or on its surface do we want to 
look directly at. Since our object is located with the origin 
at the center, we will define the origin, 0, 0,0 as our center 
of interest. 

The next item on the menu is the window. We will use 
a window with four sides, and the four vertices will be: 
20,20,15;20,-20,15; -20, -20,15 and -20,20,15. 

We are finally ready to have the computer draw our 
object as seen from our eye point with the window we just 
defined. 
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1 ' THREE-DIMENSIONAL GRAPHICS PACKAGE 

2 ' BY C.E. BURTON 

3 ' ADAPTED FROM ARTICLE: F.C. CROW, 

"THREE-DIMENSIONAL 

4 ' COMPUTER GRAPHICS, PTS . 1 & 2", BYTE, 

MARCH/APRIL, 1981 

5 GOTO 3400 'GENERATE 3-D GRAPHICS 
10 > ********* move SCREEN CURSOR TO X,Y 

20 ' XS=SCREEN CURSOR X COORDINATE 

30 ' YS=SCREEN CURSOR Y COORDINATE 

40 ' (X,Y)=DESIRED SCREEN CURSOR COORDINATE 

50 XS=X 

: YS=Y 
60 RETURN 

100 '******** DRAW LINE FROM SCREEN CURSOR 

(XS,YS) TO X,Y 

101 ' XS=SCREEN CURSOR X COORDINATE 

102 ' YS=SCREEN CURSOR Y COORDINATE 

103 ' (X,Y)=DESIRED END OF LINE COORDINATE 
110 ' DL=MAXIMUM(ABS(X-XS),ABS(Y-YS)) 

120 ' DX=X STEP 
130 ' DY=Y STEP 
140 DX=ABS(X-XS) 

: DY=ABS(Y-YS) 
150 IF 0X>DY THEN DL=DX ELSE DL=DY 
160 IF DL<1 THEN DL=1 
170 DX=SGN(X-XS)*DX/DL 

: DY=SGN(Y-YS)*DY/DL 
180 FOR 1=1 TO DL 
185 IF (XS<0) OR (XS>127) OR (YS<0) OR 

(YS>47) THEN 210 
190 SET(XS+.5, YS+.5) 

200 XS=XS+DX 

: YS=YS+DY 
210 NEXT I 

215 IF XS<0 OR XS>127 OR YS<0 OR YS>47 THEN 220 
217 SET(XS+.5, YS+.5) 
220 RETURN 

300 '******** 3- D DISPLAY TO SCREEN 2-D 
310 ' P(0)=POINT X COORDINATE 
320 ' P(l)=POINT Y COORDINATE 
330 ' P(2)=POINT Z COORDINATE 
340 ' SS(0)=X SCREEN SCALE 
350 ' SS(1)=Y SCREEN SCALE 
360 ' SC(0)=X SCREEN CENTER 
370 ' SC(1)=Y SCREEN CENTER 
380 D£FFNP(A, B, C)=B*A/P(2)+C 
385 IF P(2)=0 THEN P(2)=l 
390 P(0)=FNP(P(0), SS(0), SC(0)) 
400 P(1) = FNP(P(1), SS(1), SC(D) 
410 RETURN 



500 


'******** VECTOR INNER PRODUCT 


510 


' A=POINT 1 X COORDINATE 


520 


B=POINT 1 Y COORDINATE 


530 


' C=POINT 1 Z COORDINATE 


540 


1 D=POINT 2 X COORDINATE 


550 


E=POINT 2 Y COORDINATE 


560 


' F=POINT 2 Z COORDINATE 


570 


DEFFND(A, B, C, D, E, F)=A*D+B*£+C*F 


580 


RETURN 


600 


********* F0RM IDENTITY MATRIX 


610 


1 MX(I, J)=4 X 4 MATRIX 


620 


FOR 1=0 TO 3 


630 


FOR J=0 TO 3 


640 


IF I=J THEN MX(I, J)=l 




ELSE MX(I, J)=0 


650 


NEXT J 


660 


NEXT I 


670 


RETURN 


700 


>******** MATRIX MULTIPLY 


710 


Ml (I, J)=4 X 4 MATRIX 1 


720 


' M2(I, J)=4 X 4 MATRIX 2 


730 


MX(I, J)=4 X 4 MATRIX MULTIPLY RESULT 


740 


FOR 1=0 TO 3 


750 


FOR J=0 TO 3 


760 


MX(I, J)=0 


770 


FOR K=0 TO 3 


780 


MX(I, J)=MX(I, J)+ 



aw 


NEX1 


J 






810 


NEXT I 








820 


RETURN 








830 


' irk-k-k-k-k-k 


* MX(I, 


J) 


-> M1(I, 


835 


FOR 1=0 


TO 3 






840 


FOR 


J=0 TO 3 






845 




Ml (I, 


J) = 


=MX(I, J) 


850 


NEXT 


J 






855 


NEXT I 








860 


RETURN 








865 


1 •kk'k'k-k'k'k 


* MX ( I , 


J) • 


-> M2(I,J) 


370 


FOR 1=0 


TO 3 






875 


FOR 


J=0 TO 3 






880 




M2(I, 


J) = 


=MX(I, J) 


885 


NEXT 


J 






890 


NEXT I 








895 


RETURN 








900 




* DISPLAY LINE 


910 


• PH. 


)=FROM POINT 




920 


' P2(. 


)=TO POINT 




930 


FOR 1=0 


TO 2 






940 


P(I) 


=P1(I) 






950 


NEXT I 








960 


GOSUB 300 




-D DISPLA' 


970 


X=P(0) 









J) 



2-D 



975 



990 



790 



M2(I, K)*M1(K, J) 



NEXT K 



1010 
1020 

1030 

1040 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 

1190 

1200 

1210 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 

1380 
1390 
1400 
1410 
1420 
1500 
1510 
1520 
1530 
1535 
1540 
1545 



1550 



1555 
1556 
1560 



'MOVE SCREEN CURSOR TO X,Y 



'3-D DISPLAY TO SCREEN 2-D 



'DRAW LINE FROM SCREEN 



: Y=P(1) 
GOSUB 10 
FOR 1=0 TO 2 

P(I)=P2(I) 
NEXT I 
GOSUB 300 
X=P(0) 
: Y=P(1) 
GOSUB 100 
CURSOR TO X,Y 
RETURN 

'******* TRANSFORMATION 
' MX(I,J)=4 X 4 MATRIX 
1 P(0)=POINT X COORDINATE 
' P(l)=POINT Y COORDINATE 
' P(2)=POINT Z COORDINATE 
1 P1(0)=POINT 1 X COORDINATE 
' Pl(l)=POINT 1 Y COORDINATE 
' Pl(2)=POINT 1 Z COORDINATE 
P(0)=FND(P1(0), Pl(l), Pl(2), MX(0, 0), 

MX(0, 1), MX(0, 2))+MX(0, 3) 
P(1)=FND(P1(0), Pl(l), Pl(2), MX(1, 0), 

MX(1, 1), MX(1, 2))+MX(l, 3) 
P(2)=FND(P1(0), Pl(l), Pl(2), MX(2, 0), 

MX(2, 1), MX(2, 2))+MX(2, 3) 
RETURN 

'******* DRAW POLYGON 
' NP=NUMBER OF POINTS IN POLYGON 
' LJ=LAST J 

' PY(I,j)=POLYGON VERTEX I WITH COORD. J 
LJ=NP-1 
FOR J=0 TO NP-1 

FOR K=0 TO 2 

P1(K)=PY(LJ, K) 
: P2(K)=PY(J, K) 

NEXT K 

GOSUB 900 

LJ=J 
NEXT J 
RETURN 
'******* GET EYE SPACE 

' EP(.)=EYE POINT COORDINATES 

' ES(I,J)=EYE SPACE MATRIX (4 X 4) 

' CI(.)=CENTER OF INTEREST COORDINATES 

DEFFNH(A, B)=SQR(A*A+B*B) 



GOSUB 600 
MX(0, 0)=-l 
: MX(1, 1)=-1 
: MX(2, 2)=-l 
MX(0, 3)=EP(0) 
: MX(1, 3)=EP(1) 
: MX(2, 3)=EP(2) 

GOSUB 830 
FOR 1=0 TO 2 



'IDENTITY MATRIX 



'EYEPOINT TRANSLATION 
'MX(I,J) -> M1(I,J) 



26 
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1570 
1530 
1590 

1600 
1610 
1620 
1630 

1640 

1650 

1660 
1670 
1680 
1690 

1700 
1710 
1720 
1730 

1740 

1750 

1760 
1770 
1780 
1790 



Pl(I)=CI(I) 
NEXT I 
GOSUB 1100 

HY=FM(P(0), P(l)) 
IF HY=0 THEN 1700 
GOSUB 600 
CA=P(1)/HY 
: SA=P(0)/HY 
MX(0, 0)=CA 
: MX(1, 0)=SA 
MX(0, 1)=-SA 
: MX(1, 1)=CA 
GOSUB 865 
GOSUB 700 
GOSUB 830 
GOSUB 1100 

HY=FNH(P(1), P(2)) 
IF HY=0 THEN 1800 
GOSUB 600 
CA=P(1)/HY 
: SA=-P(2)/HY 
MX(1, 1)=CA 
: MX(2, 1)=SA 
MX(1, 2)=-SA 
: MX(2, 2)=CA 
GOSUB 865 
GOSUB 700 
GOSUB 830 
GOSUB 1100 



'TRANSFORMATION: CTR. OF 
INTR. TRANSL. 



'IDENTITY MATRIX 



■MX(I,J) -> M2(I,J) 
'MATRIX MULTIPLY 
•MX(I,J) -> M1(I,J) 
'TRANSFORMATION: ROTATE 
ABOUT Z-AXI5 



'IDENTITY MATRIX 



'MX(I,J) -> M2(I,J) 
'MATRIX MULTIPLY 
'MX(I.J) -> M1(I,J) 
'TRANSFORMATION: ROTATE 

ABOUT X-AXIS 
'IDENTITY MATRIX 



1810 

1820 

1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 



'MX(I.J) -> M2(I,J) 
'MATRIX MULTIPLY 



2010 
2020 
2030 
2040 
2050 
2060 
2070 



GOSUB 600 
MX(1, 1)=0 
: MX(2, 2)=0 
MX(1, 2)=1 
: MX(2, 1)=1 
GOSUB 865 
GOSUB 700 
FOR 1=0 TO 3 
FOR J=0 TO 3 

ES(I, J)=MX(I, J) 
NEXT J 
NEXT I 
RETURN 
******* GET SCREEN SCALE 
MM(0)=MAX X 
MM(1)=MAX Y 
MN(0)=M1N X 
MN(1)=MIN Y 
WS=WINDOW SIDES 

W(I,J)=WIND0W VERTEX I WITH COORDINATES 
SS(.)=SCREEN SCALE COORDINATES 
DA=DOTS ACROSS 
2090 ' DD=DOTS DOWN 
2100 MM(0)=0 

: MM(1)=0 

: MN(0)=0 

: MN(1)=0 

2110 FOR 1=0 TO WS-1 

2120 IF W(I, 0)/W(I, 2)>MM(0) 

THEN MM(0)=W(I, 0)/W(I, 2) 
2130 IF W(I, 0)/W(I, 2)<MN(0) 

THEN MN(0)=W(I, 0)/W(I, 2) 
2140 IF W(I, 1)/W(I, 2)>MM(1) 

THEN MM(1)=W(I, 1)/W(I, 2) 
2150 IF W(I, 1)/W(I, 2)<MN(1) 

THEN MN(1)=W(I, 1)/W(I, 2) 
2160 MM(0)=MM(0)-MN(0) 

: MM(1)=MM(1)-MN(1) 
2170 IF MM(l)>3*MM(0)/4 THEN SS( 2)=4*MM( 1) /3 ELSE 

SS(2)=MM(0) 
2180 SS(0)=DA/SS(2) 

: SS(l)=(4*DD/3)/SS(2) 
2190 RETURN 

2200 '******* INITIALIZE 
2210 ' TP -TOTAL POINTS 
2220 ' TY=TOTAL POLYGONS 
22 30 ' TV=TOTAL VERTICES 
2240 ' EP( . )=EYEPOINT COORDINATES 
2250 ' CI(.)=CENTER OF INTEREST COORDINATES 



2260 
2270 
2273 

2275 



2280 



2290 



2300 
2310 



2320 
2330 
2340 



2350 
2360 

2365 

2370 
2400 
2410 
2420 
2430 

2440 

2450 
2460 
2470 

2480 
2482 
2485 
2490 
2500 
2510 
2520 
25 30 
2540 
2550 

2560 
2570 

2580 
2590 
2600 
2605 
2610 



2620 
2630 
2640 
2650 
2655 
2660 
2670 
2675 
2680 
2685 
2690 
2700 
2710 
27 20 
27 30 



' WS=WINDOW SIZE 

' W(I,j)=WINDOW VERTEX I WITH COORDINATES 

DA=128 

: DD=48 

TP=0 

: TY=0 

: TV=0 

EP(0)=-5 

: EP(l)=-5 

: EP(2)=3 

CI(0)=0 

: CI(1)=0 

: CI(2)=0 

WS=4 

W(0, 0)=-4 

: W(0, l)=-3 

: W(0, 2)=16 

W(l, 0)=-4 

: W(l, 1)=3 

: W(l, 2)=16 

W(2, 0)=4 

: W(2, 1)=3 

: W(2, 2)=16 

W(3, 0)=4 

: W(3, l)=-3 

: W(3, 2)=16 

GOSUB 2000 

SC(0)=DA/2 

: SC(l)=DD/2 

GOSUB 500 

INITIALIZE 

RETURN 

'******* make PICTURE 

' ES(.,.)=EYE SPACE TRANSFORMATION 

' MX(., . )=4 X 4 MATRIX 

1 PD(I,0)=STARTING VERTEX NUMBER FOR 

POLYGON I 
' PD(I,l)=TOTAL NUMBER OF VERTICES FOR 

POLYGON I 
' V(I)=POINTER TO COORDINATES FOR VERTEX I 
' Pr(I,j)=POINT COORDINATES FOR VERTEX I 
' PY(I,J)=TEMP0RARY POLYGON VERTEX 

COORDINATES 



'GET SCREEN SCALE 



'VECTOR DOT PRODUCT 



CLS 
PRINT 



'GETTING EYE SPACE" 



GOSUB 1500 

FOR 1=0 TO 

FOR J=0 



■GET EYE SPACE 



3 

TO 3 

MX(I, J)=ES(I, J) 
NEXT J 
NEXT I 

FOR L=0 TO TY-1 
L0=PD(L, 0) 
: NP=PD(L, 1) 
FOR M=0 TO NP-1 

M0=V(L0+M)-1 

:IF M0<0 THEN M0=0 

FOR N=0 TO 2 

P1(N)=PT(M0, N) 
NEXT N 
PRINT "TRANSFORMING" 
GOSUB 1100 



TRANSFORMATION: 
VERTEX TO 
EYES PACE 



FOR N=0 TO 2 
PY(M, 



N)=P(N) 



NEXT N 

NEXT M 
CLS 

GOSUB 1300 'DRAW POLYGON 

NEXT L 

PRINT@0, "DONE"; 
IF INKEY$="" THEN 2680 
CLS 

RETURN 

'******* READ OBJECT 

' PT(I,j)=POINT COORDINATES FOR VERTEX I 
' V(I)=POINTER TO COORDINATES FOR VERTEX I 
' PD(I,0)=STARTING VERTEX NUMBER FOR 
POLYGON I 
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2740 

2750 
2760 
2770 
27 71 
2772 
2773 

2774 
2775 
2780 
2790 
2800 
2820 
2840 
2850 
2860 
2870 



' PD(I, 1)=T0TAL NUMBER OF VERTICES FOR 

POLYGON I 
' IP=TOTAL POINTS 
' TY=TOTAL POLYGONS 
' TV=TOTAL VERTICES 
1 PO=POINTS PER OBJECT 
1 YO=POLYGONS PER OBJECT 
' J,X,Y,Z=POINT #, X- COORD., Y-COORD., 

Z-COORD 
1 PP=POINTS PER POLYGON 

' V=POINT # WHICH DEFINES POLYGON VERTEX 
LINE INPUT "OBJECT FILE NAME: "; F$ 
PRINT "POSITION FOR OBJECT "; F$; 



INPUT 
OPEN 



X, 



XP, YP, ZP 



2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 



3010 
3020 
3030 
3040 
3050 
3060 
3100 
3110 
3120 
3130 

3140 
3150 
3160 
3170 
3180 
3185 
3190 
3200 

3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3285 
3290 
3300 

3310 
3320 
3330 
3335 
3340 
3350 
3360 
3370 
3375 
3380 
3400 
3410 
3420 
3430 
3440 
3450 
3460 



Y, Z: 
, 1, F$ 

INPUT #1, PO, YO 
FOR 1=0 TO PO-1 

INPUT #1, J, X, Y, Z 

I0=TP+I 

PT(I0, 0)=X+XP 

PT(I0, 1)=Y+YP 

PT(I0, 2)=Z+ZP 
NEXT I 
FOR 1=0 TO YO-1 

INPUT #1, PP 

FOR J=0 TO PP-1 

INPUT #1, V 
V(TV+J)=V+TP 

NEXT J 

I0=TY+I 

PD(I0, 0)=TV 

PD(I0, 1)=PP 

TV=TV+PP 
NEXT I 
TP-IP+PO 
TY=TY+YO 
CLOSE 1 
RETURN 

>******* DEFINE OBJECT 
' PO=POINTS PER OBJECT 
' YO=POLYGONS PER OBJECT 
1 J,X,Y,Z=POINT #, X-COORD., Y-COORD., 

Z-COORD. 
' PP=POINTS PER POLYGON 

' V=POINT # WHICH DEFINES POLYGON VERTEX 
LINE INPUT "OBJECT FILE NAME: "; F$ 
INPUT "POINTS PER OBJECT: "; PO 
INPUT "POLYGONS PER OBJECT: "; YO 
IF POO OR Y0<1 THEN 3170 
OPEN "0", 1, F$ 
PRINT #1, PO; YO 

FOR 1=1 TO PO 

PRINT "COORDINATES FOR POINT #" ; I; 

INPUT " X, Y, Z: "; X, Y, Z 

PRINT #1, I; X; Y; Z 
NEXT I 
FOR 1=1 TO YO 

PRINT "NUMBER OF VERTICES FOR POLYGON" ; I ; 

INPUT ": "; PP 

IF PP<3 OR PP>8 THEN 3270 

PRINT #1, PP; 

PRINT "ENTER POINT #'S FOR VERTICES IN 

CLOCKWISE DIRECTION" 
FOR J=l TO PP 

PRINT "POINT FOR VERTEX #" ; J; 
INPUT ": "; V 
IF V<1 OR V>PO THEN 3320 
PRINT #1, V; 
NEXT J 
PRINT #1, 
NEXT I 
CLOSE 1 
RETURN 

<******* GENERATE 3-D GRAPHICS 
1 EP(.)=EYEPOINT COORDINATES 
' CI(.)=CENTER OF INTEREST COORDINATES 
' TP=TOTAL POINTS 
1 TY=TOTAL POLYGONS 
1 TV=TOIAL VERTICES 
' WS=WINDOW SIZE 



3470 
3480 

349 

3500 
3505 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 

3630 
3640 



3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 

3740 
3750 
3760 

3770 
3780 
3790 



' W(I,J)=WIND0W VERTEX I COORDINATES 
DIM CI(2), EP(2), ES(3, 3), Ml(3, 3), 

M2(3, 3), MN(1), MM(1) 
DIM MX(3, 3), Pl(2), P2(2), PD(199, 2), 

P(2), PT(199, 2), PY(7, 2) 
DIM SS(2), V(799), W(7, 2) 
GOSUB 2200 'INITIALIZE 
PRINT "COMMANDS : " 
PRINT " 1 — START OVER" 
PRINT " 2 — DEFINE OBJECT" 
PRINT " 3--READ OBJECT" 
PRINT " 4— ENTER EYE POINT" 
PRINT " 5— ENTER CENTER OF INTEREST" 
PRINT " 6— ENTER WINDOW" 
PRINT " 7 — DRAW PICTURE" 
PRINT " 8— QUIT" 
INPUT "COMMAND TO EXECUTE: "; I 
IF I<0 OR I>8 THEN 3510 
ON I GOTO 3630, 3660, 3690, 3720, 3750, 
3780, 3870, 3900 
START OVER 






TP=0 
: TY=0 
: TV=0 
GOTO 3510 

GOSUB 3105 
GOTO 3510 



DEFINE OBJECT 



READ OBJECT 



Y, Z: "; EP(0), 



Z: 



3805 

3810 
3820 
3830 

3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 



GOSUB 2700 

GOTO 3510 

'******* ENTER EYE POINT 

INPUT "ENTER EYE POINT X, 

EP(1), EP(2) 
GOTO 3510 

******** ENTER CENTER OF INTEREST 
INPUT "ENTER CENTER OF INTEREST X, Y, 

CI(0), CI(1), CI(2) 
GOTO 3510 

******** ENTER WINDOW 
INPUT "NUMBER OF WINDOW SIDES: "; WS 
IF WS<3 OR WS>8 THEN 3790 
PRINT "ENTER WINDOW VERTICES IN CLOCKWISE 

ORDER" 
FOR 1=0 TO WS-1 

PRINT "WINDOW POINT #" ; I; 
1 X, Y, Z: "; W(I. 
W(I, 2) 



INPUT 



0, W(I, 1), 



NEXT I 
GOSUB 2000 
GOTO 3510 



'GET SCREEN SCALE 



DRAW PICTURE 



GOSUB 2400 
GOTO 3510 

END 



QUIT 



Model I/III Bugs, 



Changes to BASIC programs 

There are general procedures that need to be fol- 
lowed when any corrections are made. 

1 . Make a backup of the tape or disk that contains the 
program to be corrected. Changes should be made 
on the backup copy. 

2. Load the program to be changed by typing 
CLOAD"filename" (tape) or LOAD"filename" (disk) 
where filename is the name of the program to be 
modified. 

(Continued on Page 33) 



28 



TRS-80 Microcomputer News, June 1982 



Education 



Education Graphics 



Graphics Creation In 
Radio Shack's Author I 

by Dan P. Gibbs 

In the AUTHOR I system by Radio Shack, a special 
graphics mode is available to a lesson developer while 
working on TEXT pages. 

Both graphics and text may be displayed on both non- 
interactive frames (a regular TEXT page) and on interactive 
ones (a TEXT page containing question text). 

The SHIFT key, combined with the (a key is used to 
enter the graphics mode in AUTHOR I. When used 
together in this way, these two keys actually function as a 
two-way "toggle" switch on the TRS-80 Model I (toggling 
between text and graphics), or as a three-way toggle on 
the TRS-80 Model III (toggling between text, regular graph- 
ics, and Model Ill's special character set.) 

Once you enter the graphics mode, the cursor 
becomes one-fourth the size of the usual cursor-square. 
This smaller symbol is helpful in visually reminding the user 
that the graphics mode is in use. This is especially bene- 
ficial since, during the creation of a display, the user will 
probably be changing from text entry to graphics entry and 
back again several times. 

Graphics are created by "drawing" or "erasing" with 
the small cursor-square. This is done by pressing appro- 
priate keys on the TRS-80 keyboard to move the cursor- 
square back and forth on the video screen, drawing or 
erasing as needed to create the desired graphics image. 

On all TRS-80 Model Ill's and on the TRS-80 Model I's 
with the numeric keypad, the graphics cursor is moved by 
pressing one of the numeric keys 1-4 or 6-9. The numbers 
on these keys have no significance during graphics mode 
entry: they are used only as references for moving the cur- 
sor in the direction desired. Keys 8 and 2 move the cursor 
up (north) and down (south), respectively. Keys 6 and 4 
move the cursor right (east) and left (west), respectively. 
Keys 1, 3, 7, and 9 move cursor diagonally outward from 
the center (key 5, which is inactive — does not move the 
cursor at all). 

On TRS-80 Model I's without the separate numeric 
keypad, the arrow keys on the standard keyboard are 
pressed to move the cursor in the directions indicated. 
Diagonals are drawn by holding down the SHIFT key while 
pressing one of the four arrow keys. (The TRS-80 actually 
causes a clockwise rotation of about 45 degrees from the 
direction of the arrow when used with the SHIFT key.) 

Within AUTHOR I's graphics mode, there are three 
"sub"-modes: the DRAWING sub-mode, the ERASING 
sub-mode, and the NOT DRAWING sub-mode. 



The three keys on the bottom row of the numeric key- 
pad (0 , . , or ENTER) are pressed to change from one 
graphics sub-mode to another. Text messages appearing 
in the lower area of the screen signify which of the three 
sub-modes is in effect; 

1 . DRAWING sub-mode — Graphics are drawn in this 
sub-mode by leaving a "trail" of white where ever 
the cursor is moved. 

2. ERASING sub-mode — Graphics are erased in this 
sub-mode. As the cursor is moved in this sub- 
mode, a "trail" of black will be left, erasing any char- 
acters or white graphics elements which may be 
present, 

3. NOT DRAWING sub-mode — This sub-mode is 
most helpful when the user simply wants to move 
the cursor around on the video display without 
affecting or altering the current graphics creation. 

Movement of the graphics cursor across text material 
(letters, numbers, etc.) will erase the text — regardless of 
which sub-mode the user is in! 

A "library" of special graphics characters is also avail- 
able in the TRS-80 Model III version of AUTHOR I. These 
special characters may be added to figures created dur- 
ing the graphics mode, or to textual, non-graphics 
displays. 

Entry into the special characters mode is accom- 
plished with the second "toggle" of the SHIFT and (a keys 
on the Model III. The first toggle places the user into the 
graphics mode; the second toggle places him in the spe- 
cial characters mode. 

When the special characters option is accessed, the 
text cursor-square freezes at its current screen position, 
and the library of available characters appears in two rows 
(A: and B:) in the lower portion of the TRS-80 Model III 
screen. The user locates the special character desired (it 
will be in one of the two displayed rows of special char- 
acters) and then presses the letter of the row in which the 
character appears. The row of characters not being refer- 
enced disappears when A: or B: is selected. 

The standard keyboard character which must be 
typed in order to display the special character at the cur- 
rent cursor position is then located in the row of characters 
above the remaining row A: or B:. 

During the toggle routine which allows entry into the 
graphics mode or special characters mode, text appropri- 
ate to the current mode appears on the lower line of the 
screen display, e.g., an indication of the "sub"-mode dur- 
ing the graphics mode, or the rows of special characters 
in the special characters mode. If the user is changing 
back and forth from normal text entry to graphics mode or 
special characters mode, these text messages on the bot- 
tom of the display will flash on and off quickly, indicating 
that movement between modes is occurring. 
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SOME SUGGESTED USES OF GRAPHICS 

Too often, in working with the graphics utility or editor, 
the temptation of creating "graphics for graphics' sake" 
exists during the courseware development process. The 
use of graphics should not be haphazard or random, but 
carefully planned. The following are three primary reasons 
for using graphics in the courseware being developed: 

1 . As an entertaining attention-getter — such as Com- 
puter Charlie and Marvin the Martian in the upcom- 
ing TRS-80 Philadelphia C.A.R.D. Program 
Lessons. This use of graphics is valid but should 
not become "the tail that wags the dog." Cute-sy 
graphics may very well turn off all but the youngest 
students. 

2. As a means to separate text-heavy sequences into 
smaller, more accessible portions — often, a sum- 
mary chart or table utilizing graphics or special 
characters can aid in the condensation of text 
material and yet still achieve the instructional intent 
of the sequence. 

3. As instructionally-valid illustrations — Remember 
the old adage, "A picture is worth a thousand 
words." The graphics figure must be clearly dis- 
cerned by the student if its addition to the lesson is 
to have any merit. 

The use of graphics must always be carefully 
weighed, within the parameters of instructional intent and 
of memory size. 

The graphics capability of AUTHOR I is just one of a 
myriad of features which make this new authoring system 
so attractive to classroom teachers. 



Computer Literacy 

Jerry Doyle and Ed Rolenc of Fort Madison, Iowa, 
have found a way to bring computer literacy to thirteen 
Iowa school districts. Third through eighth grade students 
in about fifty school buildings are learning programming on 
the TRS-80 Color Computer. Radio Shack's Part I: Intro- 
duction to BASIC, revised by Rolenc for use with the Color 
Computer, provides the major course material. 

Doyle, who is a Science and Math Consultant for a tax- 
supported regional service center that provides educa- 
tional media for the thirteen districts, says that the idea to 
teach programming to elementary school and junior high 
students grew out of requests from elementary school 
teachers. Three years ago computers were introduced at 
the high school level, and the elementary school people 
then wanted to introduce their students to computers. 

Students in grades three through five are using 4K 
TRS-80 Color Computers to learn the material from Part I of 
the Radio Shack Computer Education Series. In most 
cases, elementary teachers teach programming to their 
own classes after some inservice training. Most of these 
teachers haven't had any previous computer experience. 
In other cases, the administration has assigned a particu- 
lar teacher to teach all of the programming courses in a 
particular school. 

Classes use the overhead transparencies and work- 
books from Part I and follow the Part I lesson structure 



closely. Doyle says that the original Part I is 90% intact as 
the program is used in the districts. The major exception is 
Lesson Seven. Since Lesson Seven deals with graphics, it 
was completely rewritten for use with the Color Computer. 
(The Part I curriculum is designed for use with the Model 
III or Model I.) Doyle called Ed Rolenc, a local computer 
expert, "the brains behind the revision." 

Although configurations vary throughout the thirteen 
districts, Doyle says that the typical arrangement is to have 
one or two Color Computers in an elementary classroom. 
The teacher presents the lesson on the overhead projector, 
then students take turns doing their assignments at the 
computer. 

Doyle reports a favorable student reaction to learning 
programming. Elementary students enjoy the hands-on 
work with the Color Computer, which Doyle calls "a real 
friendly machine— very easy to work with." Most students, 
he says, feel comfortable with the computer, and about 
one third of the third through fifth-graders are becoming 
"very good" at elementary programming. While Doyle says 
that "some of the brighter students are doing lots of inter- 
esting things" with programming, he emphasizes that all 
groups, not just accelerated students, are involved in the 
classes. Programming on the Color Computer seems to 
offer something for everyone. While some students prefer 
the more mathematical programming exercises, Doyle 
says, others are fascinated by the color graphics they have 
learned to produce. 

Doyle's future plans for the third through fifth grade 
programming curriculum include scaling down some of 
the Part I exercises. He mentioned that some of the pro- 
grams in the original Part I (for example, the Miles Per Gal- 
lon computation), involve mathematics that most students 
don't learn until after the third grade. Nevertheless, Part I 
was an important factor in the decision to use TRS-80 com- 
puters, Doyle says, because it is a complete, ready-made 
program that lends itself well to general education. 

Students in grades six through eight of the thirteen 
districts are currently using 16K TRS-80 Color Computers 
to learn both the Part I material that the earlier grades are 
covering, and some of the material from Radio Shack's Part 
II: BASIC Programming. The service center is currently 
revising Part II for larger-scale use with the upper grades. 
Their revised version will include music lessons for the 
Color Computer plus more color graphics. Generating 
sound with the Color Computer is currently being taught in 
the districts as an "Eleventh Lesson" of Part I. 

Doyle speaks enthusiastically about computers in the 
classroom and about the TRS-80 Color Computer in partic- 
ular. He describes the Color Computer as being, in his 
opinion, "the best product Radio Shack has." With the 
educational discount offered through the National Bid 
Department, Doyle's service center was able to put 160 
computers in classrooms "for a very modest cost." Besides 
the user-friendliness and reasonable cost of the Color 
Computer, and besides the availability of the Computer 
Education Series, Doyle mentioned "the availability of ser- 
vice" as an important factor in their choice of TRS-80s. 

Doyle emphasizes the importance of computer liter- 
acy as a priority of the thirteen school districts, and says 
that not only the students, but also the teachers, are devel- 
oping this literacy. Although some teachers have been 
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reluctant to devote class time to computer literacy, Doyle 
is seeing an increasing willingness to do so. He reports 
that, overall, the districts have had success with the com- 
puter literacy program and are strongly supporting the 
idea that the computer is "not a novelty item," but an impor- 
tant part of education. 




In This System, The 
Computer Future Is Now 

777/s article is reprinted with permission from The 
American School Board Journal, March. Copyright 1982, 
the National School Boards Association. All rights 
reserved. 

John Bristol has seen the future of schools — and it is 
computers. While some of you cringe at the cost of micro- 
computers, Superintendent Bristol has gone out and 
bought 220 of them. While you fret about reliable software, 
his teachers write their own instructional programs. And 
while you might have a few students queuing up for a crack 
at the machines, his school system has eight labs in which 
every student sits at his own computer. 

In the two campuses of Lyons Township High School 
District in LaGrange and Western Springs, Illinois, virtually 
all 3,800 students and 275 teachers are computer literate. 
That is because Bristol, who became superintendent in 
1980, has convinced the school board that computer lit- 
eracy is a top priority and that nothing should foil the 
schools' efforts to ensure that all students are familiar with 
microcomputers by the time they are graduated. 

To those skeptics who question his quarter-million- 
dollar expenditure— and to those who dismiss his accom- 
plishments because his schools can afford to plunk down 
that kind of money — Bristol answers: "It is not a question 
of 'Can I afford to do this?' It is a question of 'Can I afford 
not to do this?'" 

Bristol's goal of creating universal computer literacy 
among his staff and students might be the most ambitious 
in North America. Other school systems have accom- 
plished parts of what Bristol has instituted, but it would be 
difficult to find another school system with so comprehen- 
sive a plan. So far, the program has gained momentum 
because Bristol has approached it in a logical, systematic 
manner. Before he decided what type of microcomputers 
the schools ought to buy, for example, he and his staff 
declared a few objectives: First, when a class uses micro- 
computers, every student should work with his own 
machine. Second, the machines should have "network" 
capability, so that a teacher using his own computer can 
lead a class and have evervone working on the same pro- 



gram; at the same time, each program should be adapta- 
ble to students who work and learn at different rates. Third, 
the entire staff — not only interested or expert faculty — 
should be able to use the machines, and every department 
in the school should become involved in the computer 
education program. If students were to be able to use 
microcomputers, Bristol reasoned, teachers would have to 
learn to do so first. 

Because Bristol saw staff development as key to the 
success of his program, one of the first things he did upon 
assuming the superintendency was to speak at depart- 
mental meetings about the importance of computers. 
"Some teachers got excited; others were threatened by the 
prospect of change," explains Julie McGee, an English 
teacher who is one of the prime movers in the Lyons 
Township computer education program. "Some said, 'Why 
rush in just because it is new?' and some were just flat-out 
machine phobic." 

But when Bristol asked the staff to attend a series of 
four, two-hour inservice courses, only two of the 275 teach- 
ers decided not to attend — a notable achievement, con- 
sidering that 40 percent of the teachers have at least 20 
years of teaching experience and might have had little 
chance to become computer literate. 

Bristol hired Norman Bell, a Michigan State University 
professor, to conduct the computer literacy workshops last 
May for teachers. Eventually, eight teachers who assisted 
Bell volunteered to help teach sections of the literacy 
course to their colleagues. As McGee recalls, the most 
frustrating aspect of the teaching training course was that 
many teachers did not know how to type; they were unfa- 
miliar with a typewriter keyboard. (With 50 teachers in a 
class, McGee soon learned that typists should be sepa- 
rated from nontypists.) 

After the teachers learned how to use the computer 
and discovered what it could accomplish, they were asked 
to submit ideas about how they thought the microcomputer 
could be used effectively in their own classrooms. Then, 
during the summer, four teachers were able to combine 
their knowledge of the school's curriculum with their new- 
found interest in programming; these four worked with 
groups of other teachers who thought they had workable 
ideas for microcomputer programs. To help the four teach- 
ers with actual programming, Bristol hired a few computer 
whiz kids from a nearby college. Working together, the 
teachers and college students composed instructional 
software for a variety of subject areas. 

According to Ed Cermak, a mathematics and data 
processing teacher, "In some cases, the software we pro- 
duce is better than that of the publishing company, 
because we know the subject matter, the educational tech- 
niques, and the programming. Those three elements are 
the most important in producing educational software. 
There simply are not that many people who know all that." 

Curriculum Director Estella Gahala agrees: "In most 
schools, experts take possession and shut out others. We 
wanted everyone involved so all of us had a stake in it." 

Clearly, Bristol is proud of the extent to which his staff 
has caught the computer bug. "In the absence of good 
computer software on today's market, we opted for what 
needed to be done, not what was available. Our software 
fills the need of our district, whereas the software on the 
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market might limit the objectives of our school system. 
Some people build a program around available software, 
we built our computer literacy program around our own 
needs." 

Last summer the staff produced 60 different pro- 
grams, many of which encompass different levels of 
instruction. For example, in one algebra class observed 
last January, approximately 25 students, each seated 
before a microcomputer, worked on a series of a dozen or 
so problems. When the program was written last summer, 
staff members devised 24 different levels of difficulty for 
each series of problems. While some students in the alge- 
bra class worked on Level Five problems, for example, 
others in the same room worked on Level Fifteen problems. 
The teacher, naturally, has a record of what level each stu- 
dent completes as well as a record of what problem each 
student can or cannot answer. 

Julie McGee, who also is the yearbook adviser, says 
the microcomputers will be used for purposes besides 
instruction. Instead of typing out yearbook copy on paper, 
for example, students will enter the copy into the micro- 
computer, proofread it on the video screen, and send the 
disk that contains all that information to a typesetting 
house. McGee estimates the process will save $6 per 
page in yearbook production costs. 

Teachers in other subject areas have thought of other 
uses for the microcomputers: The football coach uses one 
to help scout future opponents; physical education teach- 
ers devise individual exercise programs for students 
based on the results of physical education tests; foreign 
language teachers drill their students on verb endings. 
There is a computer program on alcohol abuse, one on the 
U.S. Constitution, a few in genetics, and a slew in mathe- 
matics, spelling, and vocabularly drills. To take advantage 
of the various programs for their students, teachers simply 
reserve a computer lab a week in advance, tell the class to 
meet there, insert the program into the microcomputer, and 
cause the program to appear on students' screen. 

Now that the foundation for computer education is in 
place, Bristol likes to point out, teachers will continue to 
expand the school's library of computer software. In fact, 
he says, he has been approached about marketing the 
software his teachers have produced. 

Running students through increasing numbers of 
computer software programs, however, is not the extent of 
computer education in Lyons Township. The school also 
offers advanced instruction in data processing, for exam- 
ple. But more important, all Lyons Township students take 
a four-day computer literacy course devised by McGee, 
Cermak, and another mathematics teacher, George 
Robinson. 

Last January 29, while students were given the day 
off, teachers attended a workshop that laid out exactly how 
to teach the four-day literacy course. Then in early Febru- 
ary, on four consecutive days during the second period of 
the school day, each teacher — no matter what his or her 
specialty — taught computer literacy. "It is important to 
realize," says McGee, "that you do not have to be able to 
program to be able to teach with a computer. It is like a text 
book or any other teaching device." 

On the first day of the course, students watched a film 
that discussed the history and impact of computers on 



society. On the second day, students went to a computer 
lab to find out how the machines work, to learn some of the 
terminology, and to practice on the keyboard. On the third 
day, they saw a film on programming and ran a program 
that Robinson and Cermak wrote, which simulates what 
happens inside the computers as the program is running. 
(Students were able to observe how various statements 
and commands affect the program.) Finally, students saw 
two more films that examined the sociological implications 
of computers and that showed computers being used by 
automobile mechanics, hospital personnel, and persons in 
other work places. The students also took a short, 
machine-scored quiz and were able to review most of the 
material in their staff-written workbooks. In future school 
years, only freshmen and transfer students will take the lit- 
eracy course. 

John Bristol can give you 101 reasons computer liter- 
acy is a major education issue in the 1980s. Because he is 
convinced that students will not be literate unless they are 
computer literate, he has no patience for school officials 
who want to wait until the technology is perfected or until 
publishing companies market better software. He is espe- 
cially disturbed by school officials who plead poverty. He 
will scrawl numbers on a chalk board to illustrate how 
Lyons Township's expenditure for computers amounts to 
only $7.50 per student per year for the next five years; he 
says that is not too much to pay for computer literacy. 

If you are planning to adopt a new American history 
textbook next year, he advises school officials, put it off a 
year: If you have 1,000 students, you would have to buy 
1,250 books; at $20 per book, that is $25,000— enough for 
one computer lab. And once the lab is in place, you can 
begin organizing teachers to develop their own instruc- 
tional software programs. 

The reason for having teachers from every depart- 
ment write as much software as they possibly can is not to 
glorify technology, of course; the intent is to make the best 
possible instructional use of equipment that might well play 
an integral part in the lives of everyone who is graduated 
from high school from now on. "There is nothing about 
Lyons Township that says we can do this and others can- 
not," says Bristol. 

In five years, he says, he hopes the vast majority of 
courses in his schools will use the microcomputer in one 
way or another. At the rate he is going, he will be years 
ahead of everyone else. 



Concentric Circles 



Stephen Havens 

67 North Sable Street #15 

Keeseville, NY 12944 



Here is a short program I wrote on my TRS-80 
Model III that will draw circles, one inside the next. This is 
one of the first programs I wrote on my TRS-80. By input- 
ting the size of the first circle, the resolution of the circle, 
and number of spaces between each succeeding circle 
will produce different patterns. 

CIRCLES 
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REM * STEPHEN HAVENS 1981* 
CLS 

INPUT"ENTER THE SIZE OF THE CIRCLE (1 TO 23)" ;Y 
IF Y<1 OR Y>23 THEN 20 
INPUT "ENTER ANY NUMBER GREATER THAN 1 FOR THE 

RESOLUTION" ;X 
IF X<1 THEN 30 

PRINT"ENT£R NUMBER TO 23 FOR NUMBER OF SPACES" 
PRINT"BEWEEN EACH CIRCLE"; 

: INPUT Z 
IF Z<0 OR Z>23 THEN40 
CLS 

: PI=3. 14159 
FOR A=0 TO 2*PI STEP Pl/X 
I=63+Y*(2.6667*SINCA) 

: N=23+Y*COS(A) 
SET(I,N) 
NEXT A 

: Y=Y-1-Z 

: IF Y<0 THEN 160 ELSE90 
1 FOR W=l 10 2000 

: NEXT W 

: PRINT"END" 

: END 



lodel I/III Bugs 



(From page 28) 



3. Make the line changes indicated in the fix. For exist- 
ing line numbers, edit or retype the line to match the 
one in the fix. Enter new lines. 

4. Save the corrected program (the one now in mem- 
ory). Type CSAVE'Tilename" (ENTER) (tape) or 
SAVE"filename" (ENTER) (disk) where filename is 
the name of the program that has been modified. 

5. Now make a backup of the corrected tape or 
diskette. 

PATCHES 

PATCHes are entered from TRSDOS READY and are 
used to make corrections to files stored on the disk. 

1. Before making a PATCH, back up the diskette that 
requires modification and make the PATCHes to the 
backup copy of the diskette. 

2. Apply PATCHes according to the information given 
in your TRSDOS manual. 

Model III TRSDOS (26-312) 

When the second PATCH below was published in the 
February 1982 Newsletter it contained an error. The follow- 
ing PATCHes (which include the correction) will allow 
Model III DEBUG under TRSDOS 1.3 to inspect and/or 
change addresses in the copyrighted code areas and the 
ROM of the Model III. 



PATCH *5 
PATCH *5 
PATCH *5 



(ADD=4EDF,FIND=38E6,CHG= 



:0 (ADD=4F04,FIND=D0,CHG=C9) 
:0 (ADD=506E,FIND=38E3,CHG=(< 

Inventory Control (26-1553) 

In Version 3.1 for Model I/III, totals on the Listing by 
Vendor are the same as the totals in System Status. 

To correct the problem make the following changes to 
the program "ICS." 

1790 GOSUB2540:GOSUB2610: RETURN 

2920 GOSUB1795:GOSUB3720:LPRINTIS$;TAB(12)ID$;TAB 
(33) ; :LPRINTUSINGL0$;IQ%; :LPRINTTAB(39) ; 
: IFCC=0THENLPRINTUSINGL1$ ; IC ;ELSE 

PRINT" ****»; 

1795 GC#=GC#+IQ%*IC : GP#=GP#+IQ%*IP : GR#=GR#+I0% 
*IC:GI=GI+1: RETURN 



Accounts Payable (26-1554) 

The Accounts Payable program allows the user to 
delete any invoice at any time, even when the invoice is 
Selected, but does not decrement the # of invoices 
selected. 

For version 3.0 on both the Model I and III change the 
following line in the program INVOICES. 

219 K=KK:IS=IS+(I(K)<0):I(K)=0: 1=1-1 :IT=IT-1 

: ID=ID+1 : PL=987 : W1$="DELETED" : GOSUB109 : G0T071 

For versions prior to 3.0 on both the Model I and III 
change the following line in the program INVOICES. 

795 K=KK:IS=IS+(I(K)<0):I(K)=0: 1=1-1 : IT-IT- 1 
: ID=ID+1 : PL=987 : W1$="DELETED" : GOSUB430 
.•GOTO 130 

Accounts Receivable (26-1555) 

Following are two sets of corrections for AR. 

1 —While setting up Model I/III Accounts Receivable 
Version 3.0 under the three-drive option, you will encounter 
the error BAD FILE MODE in line 620. 

Make the following changes to the program SETUP. 

220 FL=1 : GOSUB280 : R$=IN$ : IFCFO0THEN220ELSEIFR$<> 
"Y"ANDR$<>"N"THENPRINTCHR$(8) ; : GOTO220 

880 PD=2 : PC=500 : PT=2500 : IFQ$="M"THENONERROR 
GOT0895 : KILLPT$ : PT$=LEFT$ (PT$ ,LEN(PT$)-1 ) 
+"2": CLS :PRINT@458, "INSERT DATA DISK IN DRIVE 
2 AND PRESS <ENTER>" :ELSEGOTO890 

Add the following line. 

225 IFR$="N"THENGOSUB560:IFQ$="I"THENZX=0:GOTO80 

2— In version 3.0 and earlier of AR, when a correction 
entry is made to a payment, it replaces the previous pay- 
ment on the statement. 

Make the following changes to version 3.0 of the pro- 
gram ARS. 

2020 PR#=PR#-VE# : CB#=CB#-VE# : CV#=CV#- VE# 
:G#(VJ)=G#(VJ)-VE#:G#(2)=G#(2)-VE# 

****NOTE: On versions prior to 3.0, this is line 1650. 



Special Character Mode 



Randy C. Butts 
619 Barr Drive 
Lancaster, OH 43130 



As you may know, inputting a PRINT CHR$(21) on the 
Model III turns on the special character mode. However, 
this has limitations when using it in a BASIC program. 
There is no way of knowing if the special character mode 
is on or off. Address 16420 is the poke address of the 
CHR$(21 ) mode. Poking a 1 will turn it on, a will turn it off. 
By peeking at this address, it is possible for a BASIC pro- 
gram to know if special characters are on or off and to let 
the program take appropriate action. 

Also, address 16912 contains the CHR$(22) function. 
Poking a 32 will switch to alternate (kana) characters and 
poking a 40 will switch it back to special characters. 

I hope this will help other users of the Model III to be 
able to use some of its new features. 
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Model II 



High Resolution Business 
Graphics for Models II and 16 



With the addition of Radio Shack's new high resolution 
graphics option, the Model II (and 16) acquired a graphics 
ability which may make even the Color Computer owners 
jealous. The graphics screen contains 640 points horizon- 
tally and 240 points vertically, for a total of 153,600 individ- 
ually addressable picture elements or "pixels." (The Color 
Computer has a maximum of 256 horizontal and 192 ver- 
tical elements for a maximum of 49,152 pixels.) 

The graphics option adds a new board to your 
Model II or 16 which works in conjunction with the existing 
video display board. This new board contains all the hard- 
ware needed to generate high resolution graphics, plus an 
additional 32K of memory. The additional 32K of memory 
on the graphics board means that you do not lose any of 
your current memory in order to use high resolution! 

The high resolution option includes a Graphics BASIC 
which gives you immediate access to the full graphics 
capabilities of your new board. For those who want to use 
graphics with other languages, a set of callable machine- 
language subroutines is included. Let's look at the basic 
commands which are available in Graphic BASIC: 
To start with, a few definitions: 
Origin— The origin is the pixel with horizontal and ver- 
tical coordinates of 0, 0. For the Model 11/16 high 
resolution system, the origin is in the upper left 
corner of the display. 
Parameter — a parameter is a value used by a com- 
mand to control some function. Two typical 
parameters are X and Y, which are used to deter- 
mine where a command will begin its action. 
X — a value from to 639, representing the horizontal 
position of a pixel on the display. A value of zero 
places the defined point in the leftmost vertical 
column of the display, while a value of 639 rep- 
resents the rightmost column. Two X axis (hori- 
zontal) pixels represent about the same distance 
as one Y (vertical) pixel. 
Y — a value from to 239, representing the vertical 
position of a pixel on the display. A value of zero 
places the defined point in the top horizontal row 
of the display, while a value of 239 places the 
point in the bottom row of the display. 
CLS — In Graphics BASIC the familiar CLS command 
acquires some extensions. 

CLS — Clears only regular text, leaves 
graphics. 

CLS 1 — Clears only graphics, leaves regular 
text. 

CLS 2 — Clears both graphics and text. 



PSET and PRESET — PSET and PRESET are nearly 
identical functions. Their purpose is to turn a sin- 
gle point on the video on or off. PSET defaults to 
white or point on, while PRESET defaults to black 
or point off. 

PSET and PRESET have two required parame- 
ters, X and Y; and one optional parameter C. C 
determines what color (zero (0) = black, 1 = white) 
the point specified by X and Y will be set to. 

POINT — POINT is used to find out if the point speci- 
fied by X and Y is on (color = 1 ) or off (color = 0) 

LINE — The LINE command lets you draw a line 
between two points. The starting point of the line 
can be specified, or can be left out. If the start 
point is left out, the most recently used endpoint 
is used. The ending point must be specified. 

Optional parameters for LINE are C (to deter- 
mine the color of the line), B (to draw a box rather 
than a line), BF (to draw a box and then fill or 
paint the box), and Style. 

Style is used to set the pattern of the line to be 
drawn. If Style is not specified, the line will be 
solid white line. The permissible range of values 
for Style is from -32768 to 32767. This gives 
you 65,535 possible patterns for use in drawing 
lines. This wide variety of line patterns helps to 
overcome any graphic limitations which might 
exist because we are limited to black and white 
as our only colors. 




CIRCLE — The CIRCLE command is used to draw cir- 
cles, arcs, ellipses, and pie charts. The CIRCLE 
command has three required parameters (val- 
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ues). The required parameters are X, Y and R. X 
and Y define the center of the circle, while R 
defines the radius of the circle in X-axis pixels. 
The four optional parameters are: 



C 



(default) 



(0 — draws circle in black, 1 
draws circle in white.) 
S (starting point where drawing is to begin. If 
the value for S is not zero, and is preceded 
by a minus sign, the computer will draw a 
line from the center of the circle to the start- 
ing point as well as drawing the defined por- 
tion of the circle) This feature (combined 
with the same feature for E) makes pie 
charts very easy to create. 
E (ending point where drawing stops) 
HW (defines the height to width ratio used to 
draw the "circle." A value less than .5 elon- 
gates the circle along the X-axis, while a 
value greater than .5 elongates the circle 
along the Y-axis.) 



P:fr[!w!t[:[;|;r f;f f f f f r f.r.(.r.uf.r.r.f.r.r.r.r.r.f.r m i urn u.u v. r. Cfti^ • i I 

V: r : r :V: r : r :V.Y:".'.".'." '.'""" ". ' '. <rt 

'(:^^^U(:U[ffU[U[U^''''''''''''' ,M '' ,M ''''^;]:;: 

PAINT — The paint command is used to "paint" sec- 
tions of the screen. The two required parameters 
are X and Y which are the coordinates of the 
point where painting begins. 

The paint command will paint with an optional 
Style. The default style is to paint solid white. 
Style can be specified as a number (0 or 1 ) or as 
an alphanumeric string of 1 to 64 characters. If 




an alphanumeric string is used, the characters 
are used to s create a pattern for painting. The 
characters themselves are not printed, they sim- 
ply determine the Style to be used. 

Painting continues until a border (default color of 
border is white) is reached. 




In addition to the graphic functions we have covered 
this month, the Model II High Resolution Graphics option 
also supports GET, PUT, SCREEN, VIEW and VIEWPORT. 
We will have information on these functions in a future 
issue. 
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Model II Bugs, Errors 
and Fixes 



Changes to BASIC programs 

There are general procedures that need to be fol- 
lowed when any corrections are made. 

1 . Make a backup of the disk that contains the pro- 
gram to be corrected. Changes should be made on 
the backup copy. 

2. Load the program to be changed by typing 
LOAD"filename" where filename is the name of the 
program to be modified. 

3. Make the line changes indicated in the fix. For exist- 
ing line numbers, edit or retype the line to match the 
one in the fix. New lines should be entered. 

4. Save the corrected program (the one now in mem- 
ory). Type SAVE"filename" (ENTER) where file- 
name is the name of the program that has been 
modified. 

5. Now make a backup of the corrected diskette. 

PATCHES 

PATCHes are entered from TRSDOS READY and are 
used to make corrections to files stored on the disk. 

1 . Before making a PATCH, back up the diskette that 
requires modification and make the PATCHes to the 
backup copy of the diskette. 

2. Apply PATCHes according to the information given 
in your TRSDOS manual. 

General Ledger (26-4501) 

VERSION 1.1 

In this version of General Ledger there are two poten- 
tial problems that exist. First, there is no way to change the 
month, and secondly, unless the General Ledger's year 
was closed out in the 12th month the System Status will not 
reset to one, 

In order to change the month that the system is run- 
ning in, do the following. 

1 . Go into Accounts Maintenance 

2. Press (BREAK) 

3. Type: FM = n (where n is desired month #) 

4. Type: CONT (ENTER) 

5. Press the (F1) key 

6. Check System Status to make sure that the month 
is correct. 

If the General Ledger's year is closed out and it was 
not the 12th month, the System Status does not reset to 
one. This problem is corrected by making the following 
change to the Income program. 

1490 FM=0 

VERSION 2.0 

In this version the printer will list accounts properly 
until the end of the page where it should then advance 
paper for top of forms and continue printing accounts on 
the second page. The program does not do this; therefore, 
a new code line is required. 

The problem is corrected by making the following cor- 
rection to the Glmaint program. 



6110 IFPG>0THENLPRINTFF$; 

Inventory Management (26-4502) 

Following are two sets of instructions to allow the user 
to make specific changes to Inventory Management 
Version 1.1. 

1 — In some cases, you might need to change the cur- 
rent period, beginning date of the period, or the beginning 
date of the year. The only way to do this is by starting a new 
inventory system, or you can run this program. 

1 . At TRSDOS READY type in BASIC -F:1 

2. At Ready type in the following program. 

5 CLS:PRINT"ENTER THE FOLLOWING INFORMATION" 

10 INPUT"CURRENT PERIOD SYSTEM SHOULD BE IN";PD 

20 INPUT"BEGINNING DATE FOR PERIOD" ;BP$ 

30 INPUT"BEGINNING DATE FOR YEAR"; BY$ 

35 OPEN "R",l ."CONTROL/DAT ' " , 96 

40 FIELD 1, 10 AS DU$,2 AS PD$, 6 AS DM$ , 9 

AS PB$, 9 AS YB$ 
50 GET 1,2 

60 LSET PD$=MKI$(PD):LSET PB$=BP$:LSET YB$=BY$ 
70 PUT 1,2 
80 CLOSE 

3. At Ready type RUN and answer the appropriate 
questions. 

NOTE: All days must be entered in the following way 
— three characters for the month, two integers for the day, 
and four integers for the year with no spaces between 
them. 

EXAMPLES: JAN01 1980 
MAY211980 
OCT031980 

4. At Ready type SYSTEM'IMS" 

5. When the program loads, check the period and 
date to make sure it is correct. 

2 — When IMS is run on the original master disk so that 
you are left without a clean master, a problem arises if you 
decide that you want to uninitialize the system or change 
the parameters (in other words you want to start over 
clean). 

The following must be done to clear out the system 
information. This should only be done in cases when there 
is not a clean master available. 

1 . At "TRSDOS Ready" type BASIC -F:3 

2. When BASIC has loaded, enter the following 
program. 

10 CLEAR 1000 

20 KILL"SALEDATA/DAT":KILL"CONTROL/DAT" 

30 OPEN"R" , 1 , "CONTROL/DAT" , 96 

40 FIELD 1, 96 AS X$: LSET 

X$=STRING$ ( 96 , 32 ) : PUT1 , 1 
50 LSET X$=STRING$(96,0) 
60 FOR F=2 TO 5 :PUT1 ,F: NEXT F: CLOSE 
70 SYSTEM"IMS" 

3. Type RUN and press (ENTER). 

4. Type SYSTEM to get to TRSDOS READY and make 
a backup. 

Payroll (26-4503) 

The following includes information regarding three dif- 
ferent sets of problems with Payroll. 

1 — In the December 1981 issue of Microcomputer 
News we informed you of a number of changes that 
needed to be made to Payroll version 1.1 in order to 
accommodate the Disability Withholding requirements for 
California, New Jersey, and Hawaii. There are corrections 
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that need to be made to those changes. Contact a Radio 
Shack Computer Center or Computer Customer Services 
to obtain the changes. 

2 — Standard W2 forms require that the last name be 
printed first. The TRS W2 prints the first name first, then the 
middle name, and then the last. 

Add the following lines to the program named W2. 

1320 IFINSTR(NA$,",")<2THEN1360 
1330 NA$=MID$(NA$,1,INSTR(NA$+" 

" ")-D:L=INSTR(NA$,",") 
1340 IA$=MID$(NA$,1,L-1):FR$=M1D$(NA$,L+1)+" " 
1350 IFLEN(FR$)>2ANDASC(FR$)=32THENFR$=MID$ 

(FR$ , 2) : GOTO1350ELSENA$=FR$+LA$ 
1360 REM 

3 — Payroll will not print out city name in the local city 
name block (block 22) of the W2 form. This is needed for 
any city withholding taxes. 

Make the following change to the program named W2. 

17 35 LPRINTTAB( 36 ) ; US INGFI $ ; D# ( 3) ; : LPRINTTAB( 48 ) 
;USINGFI$;R£#(3);:LPRINTTAB(62);S$:LPR1NT: 
LPRIiMTTAB(36);USINGFI$;D#(4);:LPRINTTAB(48) 
;USINGFI$;RE#(4);:LPRINTTAB(62)MID$(CT$,1,5) 

Accounts Payable (26-4505 Version 1.0/2.0) 

When using the Print Checks option, the user is not 
able to disable the printing of check numbers on the 
checks. 

Make the following corrections to the program 
APCHECKS/BAS. 

To eliminate the check number from printing on the 
stub. 

2410 LPRINTL1$:LPRINT;NA$:LPRINTL1$:LPRINTL1$ 
: RETURN 

To eliminate the check number from printing on 
the check. 

2515 LPRINTL1$:LPRINTL1$:LPRINTL1$:LPRINTL1$ 
:LPRINTL1$ 

SCRiPSIT 2.0 (26-4531) 

Following are four corrections to SCRIPSIT 2.0. 

1 — Changing disk default values for line spacing in 
Window MODE and Format line settings is not reflected 
when creating a document to have the new default values 
in the L/S setting. Only when L/S shows correct values will 
document print as specified with the new default values. 

The following PATCHes will correct this problem. 

PATCH SCRIPSIT/SYS R=15 B=186 F=4947 C=63E9 
PATCH SCRIPSIT/SYS R=ll B=140 

F=141414141414141414 C=3A228132F07 AC 34947 
PATCH STARTUP A=E40E F=B1B1AFB2B4AF 
C=B1B2AFB0B4AF 

2 — When doing a global Search and Replace under 
SCRIPSIT, if you specify a beginning page number greater 
than the highest page number in your document, 
SCRIPSIT will create the requested page and then pro- 
ceed to fill up the document with empty pages. 

Apply the following PATCHes to correct the problem. 

PATCH SCRIPSIT A=D6A3 F=000000000000000000 
C=CDBECC3E95C0C312C5 

PATCH SCRIPSIT A=D6AC F=0000000000000000 
C=CDFBCCC5E3CDFBCC 

PATCH SCRIPSIT A=D6B4 F=0000000000000000 
C=E3C1B7ED42D03A6B 

PATCH SCRIPSIT A=D6BC F=00000000 C=840F3FC9 

PATCH SCRIPSIT/SYS R=71 B=203 F=12C5C294 

C=A3D6C298 

PATCH SCRIPSIT/SYS R=72 B=89 F=B7ED4228 

C=CDACD630 



3 — If the first paragraph on a page had a line spacing 
of 2 and was locked, doing a Define Paragraph (ESC 
U D P) caused the system to lock up. 

Apply the following PATCHes to correct the problem. 

PATCH SCRIPSIT A=D69A F=000000000000000000 
C=2BCB7EC02BF5C300E2 
PATCH SCRIPSIT/SYS R=42 B=10 F=2B2BF5 C=C39AD6 

After the above PATCHes for corrections 2 and 3 have 
been applied, apply the following PATCH to change the 
date in the SCRIPSIT initialization screen (The date should 
read 12/04/1981 before the above PATCHes are applied. 
If it does not, contact your Radio Shack Computer Center 
or Store for all the preceding PATCHes which must be 
applied before these PATCHes.): 

PATCH STARTUP A=E40E F=B1B2AFB0B4AFB1B9B8B1 
C=B0B1AFB0B8AFB1B9B8B2 

When this PATCH has been made, the SCRIPSIT ini- 
tialization screen will show the date 01/08/1982 at the 
bottom. 

4 — If you attempt to create a document on an almost 
full SCRIPSIT diskette, no check is made to be sure that 
there is enough free space to create the document and its 
first page. This results in "garbage" being displayed as the 
first page. To fix this apply the following PATCHes: 



PATCH SCRIPSIT A=D686 F=2 

C=2A0A811128003E96 
PATCH SCRIPSIT A=D68E F=00000000000000 

C=B7ED52D8116D4A 
PATCH SCRIPSIT A=D695 F=0000000000 

C=DDE5E1AFC9 
PATCH SCRIPSIT/SYS R=15 B=87 F=116D4ADDE5E1 

C=CD86D6C2A93D 

These PATCHes prevent SCRIPSIT from creating a 
document on any diskette that has less than 40 sectors 
free. 

After applying the above PATCHes, apply the follow- 
ing to change the date in the initialization screen (it should 
show up as 01/08/1982 before you apply these PATCHes. 
If it doesn't, obtain and apply all preceding PATCHes first). 

PATCH STARTUP A=E40E F=B0B1AFB0B8 
C=B0B2AFB2B3 

TRSDOS (26-4910) 

Following are five sets of PATCHes for Model II 
TRSDOS. The first two corrections are for TRSDOS ver- 
sions 2.0 and 2.0a while the corrections in 3, 4, and 5 are 
for 2.0a only. 

1 — In some cases, when using the PATCH utility to 
modify a byte, an erroneous 'String Not Found — Abort' 
would be returned even when a LIST of the file confirms the 
presence of the byte to be PATCHed at the address 
specified. 

The following PATCHes will correct the problem 
described above. 



PATCH PATCH A=3263 

PATCH PATCH A=3194 
PATCH PATCH A=3208 
PATCH PATCH A=3221 
PATCH PATCH A=3361 



F=B79932A5323AA432321933CD 

C=9132A5323AA432321933B7C4 

F=DA C=CA 

F=DA C=CA 

F=DA C=CA 

F=0600B7ED42461D15DA7233 

C=AF47ED424615142808151D 



2 — For some ranges of values, the "RAM Directory" 
Supervisor call (#53) returned an erroneous value for the 
number of records in the file. This was caused by an invalid 
offset in one of the operands in the calculation. 
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The following PATCHes will correct the code involved 
in the calculation. 

PATCH SYSTEM/SYS R=59 B=103 F=B52811 C=CD9926 
PATCH SYSTEM/SYS R=59 B=120 F=CF5DEB C=CD9F26 
PATCH SYSTEM/SYS R=60 B=154 

F=E5E5E5E5E5E5E5E5E5E5E5 
C=B5CA7A252BC9CF5D13EBC9 

3_The BACKUP utility contains a bug which will 
cause it to report a TRSDOS ERROR 39 for any file that 
uses all 16 extents. The following PATCHes will circumvent 
the bug and allow BACKUP to operate properly. 

At TRSDOS READY, apply the following PATCHes. 



PATCH 
PATCH 



PATCH 
PATCH 



PATCH 
PATCH 



BACKUP 
BACKUP 



A=28C9 
A=2C02 



BACKUP A=2C0C 
BACKUP A=2C16 



BACKUP 
BACKUP 



A=352B 

A=35F4 



=21022CCDC632 C 

=1D4F6E6C7920474F4F44 

=22B22A112000197E3263 

=2066696C65732063616E 

=2B22612B36FFC32E352A 

=20626520636F70696564 

=612B3A632B7721FFFFC9 

=22B22A C=C3022C 

=21FFFF C=C3152C 



4 — In some unattended modes of operation, it is 
desirable to have HOST start up without any operator 
prompt for either enabling or disabling the remote (BREAK) 
key. Below are some optional PATCHes for TRSDOS 2.0a 
which, when applied, will allow the HOST function to start- 
up without either displaying the question "Disable remote 
(BREAK) key (Y/N)" or requiring the operator's reply. 

When the first PATCH is applied, the remote (BREAK) 
key is automatically enabled at start up; if the second 
PATCH is applied instead, HOST starts with the remote 
(BREAK) key disabled. 

To Enable the remote (BREAK) key: 

PATCH SYSTEM64 R=25 B=22 F=21D9F50E C=06001818 
(for 64K HOST) 

PATCH SYSTEM32 R=25 B=22 F=21D9750E C=06001818 
(for 32K HOST) 

To Disable the remote (BREAK) key: 

PATCH SYSTEM64 R=25 B=22 F=21D9F50E C=06011818 
(for 64K HOST) 

PATCH SYSTEM32 R=25 B=22 F=21D9750E C=06011818 
(for 32K HOST) 

5 — The communications module COMSUB uses 
serial channel A per its definition. Some users, however, 
would like to be able to use COMSUB to communicate with 
a device (like the multi-pen plotter, for example) attached 
to serial channel B. 

In order to get COMSUB to use serial channel B, the 
following optional PATCHes should be applied to 
COMSUB 

(Optional PATCHes for 64K version of COMSUB) 

PATCH C0MSUB64 A=EF8B F=3E60 C=3E62 
PATCH COMSUB64 A=EF9A F=3E61 C=3E63 

TRSDOS-HD 4.0 (26-4150) 

The serial communications baud rate = 4800 is not 
working properly, 

When 4800 BAUD operation was specified using 
either the SETCOM command or the RS232 Initialization 
Supervisor Call (55), the actual BAUD rate was being set 
to 9600 BAUD. 

The following PATCH is for the TRSDOS-HD 4.0 only 
and will correct the problem described above. 

PATCH SYSTEM/SYS R=68 B=139 F=0D C=1A 



Graphic Heii 
Correction 



R. A. Esquivel 
2123 Fairview 
Houston, TX 77019 



Since March, 1981, I have been the proud owner of 
your excellent 16K TRS-80 Color Computer (CC), which I 
have used for a number of applications with great satisfac- 
tion and enthusiasm. 

And now, after sampling some of the wonderful color 
programs in various publications, I would like to contribute 
my little grain of sand! 

For the CIRCLE command, I have not been content 
with the resultant top-to-bottom elongated ellipse that I 
obtain, instead of a true circle. I have found this to be true 
not only on my computer, but also at the local TRS Com- 
puter Center as well as in published material (For example, 
see "Going Ahead With Extended Color Basic," page C-4 
and C-7 following page 84. For another example, see the 
cover sheet on the December, 1981 issue of the "TRS-80 
Microcomputer News"). 

I have been able to correct the above problem by 
using an "hw" value of 0.9 in the command 
"CIRCLE(x,y),r,c,hw". Specifically, for the beautiful pro- 
gram "A Christmas Wreath and Song," by Gerald Plueard, 
page 35 of your December 1981 issue of the TRS-80 
Microcomputer News, the necessary correction is simply 
to change line 680 from: 



to: 



LINE-(128-LA-SA, 96-LB-SB) ,PSET 



LINE-(128-LA-SA,(96-LB-SB)*. 9),PSET 



After various tries at graphics with my CC, I have 
found that a similar problem exists for true squares, 45 
degree lines, and such. Alas, a glitch in CC ROM perverts 
the ratio of horizontal to vertical coordinates to a value of 
about 0.9 (See, for example, "Going Ahead With Extended 
Color Basic," pages C-2 and C-5 following page 84). 

In conclusion, any time a true horizontal-to-vertical 
ratio of 1 is desired, the graphics must be corrected. 
Basically, this can be done by reducing (multiplying) all 
verticals in a program to 0.9 of the desired screen value. 




etters 
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JUNE 1981 
PCLEAR 

Kevin Davidson 
Route 10, Box 388 
Easley, SC 29640 



First a description of the problem: When a PCLEAR is 
issued, the BASIC program is relocated in memory. The 
bug is that BASIC continues to run the "old" copy of the 
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program rather than the relocated one. The old copy may 
be incomplete (overwritten by part of the new copy) or later 
damaged by graphics such as PCLS. 

The solution has two essential parts: 1 ) placing BASIC 
solution statements in a location, the "old" copy of which 
will be intact after the PCLEAR and 2) getting BASIC back 
on track in executing the relocated copy of the program. 

The answer to the first problem requires solution state- 
ments to be placed both at the beginning and at the end 
of the program. Depending on whether more or fewer 
pages are being PCLEARed, one or the other is executed. 
If more pages are PCLEARed the old end of the program 
may be overwritten and the solution must be executed at 
the program's start; conversely, if fewer pages are 
PCLEARed, the solution must be executed from the end of 
the program. 

Which is the case? One must determine how many 
graphic pages are currently in use to distinguish between 
the two cases. The address of the beginning of the BASIC 
program (which immediately follows the end of graphics 
memory) is found in locations 25 and 26 of memory. 
Hence, the number of graphics pages in use is given by 
the formula: 

XP=(256*PEEK(25) + PEEK(26)-15.37)/15 36 

The second part of the solution is to get BASIC to 
begin executing the new relocated copy of the program. 
This is simple. After the PCLEAR, BASIC correctly stores 
the address of the "new" copy in locations 25 and 26. 
When executing any backwards GOTO, BASIC uses loca- 
tions 25 and 26 to begin its forward scan (now in new 
copy!) looking for the desired statement number. 

NOTE: PCLEAR cannot be used in the middle of a 
BASIC program because variables are not relocated. The 
manual clearly says that PCLEARs must be first in the pro- 
gram (only after CLEAR) for this reason. 

What follows is a few lines of code that will allow any 
PCLEAR (given proper PMODE and available memory) to 
work. Lines 10-40 must precede any other program state- 
ments except REM and CLEAR (and maybe PMODE). 
Lines 60000-60010 must be the last statements in the pro- 
gram. The values of P and XP may not be valid on line 40 
or following. 

10 P= '# PAGES TO PCLEAR 

20 XP=(256*PE£K(25)+PEEK(26)-1537)/15 36 

30 IF P=XP THEIN 40 ELSE IF P<XP THEN 60010 ELSE 

PCLEAR P:GOTO 10 
40 ' CONTINUE WITH YOUR PROGRAM 



60000 END 

60010 PCLEAR P : GOTO 40 



FEBRUARY 1982 
BOUNCING BOX 

John Lockhart 

4116 Bridgehampton Drive 

St. Charles, MO 63301 

In the February issue there is a program called 
"Bouncing Box" by W. Tudor Apmadoc on page 44, In Line 
190 he used POKE 65495,0. I know this is to speed up the 



computer, however, he did not use a POKE 65494,0 to slow 
it down at the end. If you do not slow it down at the end of 
running the program you will not be able to put the pro- 
gram to tape in a way that it can be read in later. Also, no 
other programs will be able to be read in from tape unless 
you type POKE 65494,0 or turn off the computer. I have 
been told that if the Color Computer has a Floppy Disk it 
will not run the fast mode at all. 

I modified the program to work better in 9 steps: 
STEP1— Line 190 I delete. 
STEP 2— I changed line 10 to 10 CLS: PRINT " 
TO SLOW THE COMPUTER DOWN 
TYPE ' S' WHILE IT IS RUNNING": 
PRINT " TO MAKE THE PROGRAM 
RUN AS FAST AS THE COMPUTER 
WILL LET IT, TYPE ' F ' WHILE IT IS 
RUNNING." 
STEP3— Add line 11 PRINT " TO STOP (OR 
END) THE PROGRAM TYPE ' E ' : 
PRINT " HIT ANY KEY TO CONTINUE." 
STEP 4— Add line 12 A$ = INKEY$ : IF A$ = 

""THEN 12 
STEP 5— Add line 285 A$ = INKEYS <> "" 

THEN GOSUB 890 
STEP 6— Add line 890 IF A$ = " F " THEN 910 
ELSE IF A$ = "S" THEN 900 ELSE IF 
A$ = " E " THEN 1000 ELSE RETURN. 
STEP 7— Add line 900 POKE 65494,0: RETURN 
STEP 8— Add line 910 POKE 65495,0: RETURN 
STEP 9— Add line 1000 POKE 65494,0: CLS: 
END 

With these changes you get to see the computer run 
at different speeds. Hope these changes might help 
someone. 



NO GAPS IN NAMES 

John Wagnon 

Chesterfield County School District 

141 Main Street 

Chesterfield, SC 29709 

in your February issue William Smith offered a helpful 
suggestion (for the program Microfiles) for storing first 
and last names a) in separate fields to allow for sorting by 
last name and b) in a single field to eliminate unsightly 
gaps between first and last names when printing mailing 
lists, etc. 

A simpler solution I have found for use on the Model 
II requires just the two fields (first name-GN$ and last 
names-SN$) to accomplish both objectives. 

The two fields allow for sorting by last name if an 
alphabetized list is required and also provide for a close 
abutment of the first and last name if an addressing format 
is needed. The latter is accomplished with the following 
program segment: 

560 G = INSTR(GN$," "):' returns length of first 

name + 1 
570 IF G = THEN G = 11 : ' if first name fills 

field will be returned so in this case 

set G =length of field + 1 (11 in this 

example) 
580 LPRINTTAB(n)LEFT$(GN$,G);: 'truncates excess 
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spaces after first name and semicolon 
inhibits carriage return 
590 LPRINTTAB(n+G) SN$:'prints last name 
following one space after first name 

A similar procedure can be utilized for abutting names 
when printing last name first or with an additional field for 
middle names or initials. 

I would appreciate knowing a simple means of 
accomplishing a multiple line feed superior to stringing 
together LPRINT statements or even using a loop. Also 
using Model II BASIC, how can you print a "©" sign? 
Editor: Multiple linefeeds can be generated using the 
STRINGS function. To generate the ©on printers which 
have the character, use LPRINT CHRS (n) where n is the 
decimal value for © (from your line printer manual). 



Typewriter 

R. Donald Brough 
PAR MANAGEMENT, INC. 
P.O. Box 8229 
Honolulu, HI 96815 

With a slight variation to the Typewriter program, the 
left margin can be adjusted to suit different requirements, 
and typing errors can be corrected before printing. The 
original program does not provide either of these features. 
Here is my version: 

10 REM ***** TYPEWRITER MODE 



15 CLEAR 600 
20 CLS 

30 PRINT@ 112. 
40 PRINTS 192. 



"TYPEWRITER MODE" 

"TO EXIT MODE USE «UP ARR0W»9" 
41 PRINTS 240, "PAGE LENGTH" ;: INPUT PG 
45 PRINTS 320, "SET LEFT MARGIN" ;: INPUT L 
50 PRINTS 360, "SET RIGHT MARGIN" ;: INPUT A 

52 IF A > 79 THEN 53 ELSE 54 

53 PRINT "RIGHT MARGIN MUST NOT EXCEED 79": GOTO 

50 

54 SYSTEM "FORMS" 

55 CLS:F=0:G=0 

60 PRINTS 400+L, "<";: PRINTS 400+A, ">" 

70 IF A > 79 THEN 165 

75 Y = 0:P$ = STRING$(80,32) 

80 C$ = INKEY$ 

90 IF C$ = CHR$(8) THEN Y = Y -1: PRINT C$;:GOTO 

80 
92 Y = Y + 1 
94 MID$(P$,Y,1) = C$ 
100 IF C$ = CHR$(92) THEN 20 

IF POS(X) >= A THEN F = 1 

IF F = 1 THEN IF C$=CHR$(32) THEN C$ = 
CHR$(13) 
130 IF C$ = CHR$(13) THEN F=0 
140 PRINT TAB(L)C$; 

150 IF C$ = CHR$(13) THEN 151 ELSE 160 

151 Z = INSTR(P$,CHR$(13)) 

155 PR$ = LEFT$(P$,Z-1) 

156 LPRINT TAB(L)PR$ 

157 G = G+l 

158 IF G = PG THEN SYSTEM "FORMST" 

159 GOTO 75 

160 GOTO 80 

165 Y=0:P$ = STRING$(255,32) 
170 C$ = INKEY$ 

180 IF C$ = "" THEN 170 

181 IF C$ = CHR$(8) Y = Y - 1: PRINT C$;:GOT0 170 

182 Y = Y + 1 

185 MID$(P$,Y,1) = C$ 

190 IF C$ = CHR$(92) THEN 20 

200 IF ROW(X)/2<>INT(ROW(X)/2) AND POS(X)>=A-79 



110 
120 



210 IF F=l THEN IF C$ = CHR$(32) THEN C$= 

CHR$(13) 
220 IF C$ = CHR$(13) THEN F=0 
230 PRINT TAB(L)C$; 

240 IF C$ = CHR$(13) THEN 241 ELSE 170 

241 Z = INSTR(P$,CHR$(13)) 

242 PRINT Z 

245 PR$ = LEFT$(P$,Z-1) 

250 LPRINT TAB(L)PR$:GOTO 165 

255 END 

For an optional page length monitor make the follow- 
ing changes: 

41 PRINTS240, "PAGE LENGTH"; : INPUT PG 

156 LPRINT TAB(L)PR$ 

157 G=G+1 

158 IF G=PG THEN SYSTEM"FORMS T" 

159 GOTO 75 



MARCH 1982 
SUB DESTROYER 

The program Sub Destroyer on page 47 has errors in 
two lines. The corrected lines should read: 

290 IF A$="H" THEN K=K+2 

515 PRINT@6,"SC0RE- tl XX,"TIME-"QQ; 

Histogram 

Kenneth Willoughby 
P.O. Box 317 
Fairacres, NM 88033 

The program was written using a RADIO SHACK 
TRS-80 Model II with 64K. Since it does not need much 
memory to run, or store, it could be easily incorporated into 
larger programs needing this type of a presentation of the 
data. Program #1 is for video graphics presented on the 
screen. The data is stored in the DATA statements with the 
category first followed by the data amount. Line 50 also 
has a scaling factor for numbers that are too large for the 
graph. You can change the 100 to any number suitable to 
the graph. 

PROGRAM #1 

CLS 

10 ' HISTOGRAM PROGRAM FOR SIMPLE BAR CHART 

20 PRINT"SCALE->" ; TAB ( 10 ) "0" ; TAB( 20 )"10" ;TAB( 30 ) 

"20";TAB(40)"30 ,, ;TAB(50)"40";TAB(60)"50";TAB(70)" 

60" 
30 FOR X=l TO 12 
40 READ A$,Y 
50 Y=INT(Y/100+,5) 

: REM SCALING FACTOR IF NUMBERS TOO LARGE FOR 

CHART 
60 PRINT A$; 

: PRINTS (X, 10), STRING$(Y,"+") 
70 NEXT X 
80 RESTORE 

: END 
90 DATA JAN ,500! 

JUN,6500 
100 DATA JUL,61( 

6000, DEC, 4500 

PROGRAM #2 

To change the program to get hard copy of the histo- 
gram edit the following lines. 

20 LPRINT"SCALE->" ;TAB( 10 )"0" ;TAB( 20 )"10" ; TAB( 30 ) 

"20";TAB(40)"30";TAB(50)"40";TAB(60)"50";TAB(70)" 



,FEB , 3000 ,MAR, 3500 , APR, 4500 ,MAY , 5500 , 
i ,AUG , 6200 , SEP , 6300 ,0CT , 6500 , NOV , 



60 LPRINT A$; 

: TAB(10);STRING$(Y,"t") 



40 
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High Resolution 
Character Generation 



George Fraser 

3403 Bear Creek Drive 
Newbury Park, CA 91320 



enjoy my Color Computer very much and think that 
Extended Color BASIC is great, A serious shortcoming for 
some applications, however, is the inability to print text on 
the high resolution screens. The program I am enclosing 
presents a software solution to this lack. 

The program consists of two machine language sub- 
routines and a table, all of which is prepared and saved on 
a "CSAVEM" tape called "CHR" Once this is prepared and 
loaded, your high resolution graphics program can 
"PRINT" text strings on the PMODE4 or PMODE3 screen 
almost as easily as doing a "PRINT @" instruction. You will 
never again have to code those long and tedious "DRAW" 
statements 










i \ 



1 1 



[ i 




There are 90 printable characters accessible from the 
Color Computer Keyboard, including alpha lower case. 
This program allows (and requires) the user to pre-define 
as many of the 90 characters as he wants to use. This per- 
mits true lower case letters, different alphabet designs, for- 
eign or Greek letters, math or game symbols, etc. 

The Color Computer prints text characters on the 
screen in a 5 x 7 dot matrix, each character in an 8 x 12 dot 
"ceil." The dot, which may be called a "pixel," is a tiny black 
spot on the green background when it is "set" (turned on). 

My program divides the PMODE4 screen into contig- 
uous (touching) 8x8 dot cells. Each cell will hold one char- 
acter. The full screen equals 24 lines of 32 cells each, for 
a total of 768 (lower right corner). This is analogous to the 
"PRINT @ M instruction, which uses positions through 511 



The "CSAVEM" tape you will prepare will be 820 bytes 
long, including 100 bytes of machine language code and 
720 bytes of table. The table contains 8 bytes of bit pat- 
terns for each of the 90 characters. 

The interface to a graphics program in Extended Color 
BASIC may be summarized as follows. Each call to USR8 
or USR9 passes an argument (A or A$) to it. USR8 returns 
nothing (X = GARBAGE), USR9 returns X$ = A$ after put- 
ting A$ on the screen starting at cell A. 

CLEAR 5061,15563 



L=15564 
DEFUSR8 = L 
DEFUSR9 = L+10 
X-USRB(A) 



AS=L 1 SR9(A$) 



'LOAD ADDRESS FOR THE CSAVE TAPE 



'A IS AN INTEGER FROM TO 767, 
? THE POSITION CORRESPONDING TO 
'"PRINT @", 
'A$ IS THE STRING TO BE "PRINTED". 



Here is how to prepare your "CHR" tape. 

1 . Key in and save "LOADTBL". 

2. Key in and save "DEFINECH" 

3. CLOAD "LOADTBL" and RUN. 

4. CLOAD "DEFINECH" and RUN. This will take a 
while to define each character you need, and may 
seem tedious at first, but you will get the hang of it. 



■ 











































r 




I 

1 
1 





I 




5. CSAVEM XHR", 15564, 16383, 350 
Here are the instructions for using the program 
"DEFINECH". 

1 . The first screen draws a large box and prompts you 
for a character. Type in a character and enter. 

2. The program then gets the 8x8 matrix of pixels 
from your table for that character and displays them 
inside the box. The tiny black square is your cursor. 
Any pixel that is "set" shows up as a large black 
square. 

3. Capital "X" will set the pixel and advance the cur- 
sor. Space bar will clear the pixel and advance the 
cursor. The down arrow key will move the cursor 
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down. Any oiner key will advance the cursor without 
change. Enter key will update the table and prompt 
you for another character. Start off by using the 
upper left 5x7 pixels for your character 

4. If you press the (ENTER) key when it prompts you 
for a new character, the program will display a 
"PMODE4" graphics screen and will "PRINT 11 all 90 
characters. Press any key to return to the other 
screen. Use this frequently to check on your prog- 
ress and to make sure your letters are readable. 

5. When you are finished, end the program with the 
break key and prepare your tape with: 

CSAVEH "CHR", 15564, 16383, 350 

6. To update a table you have already created, do this: 

CLEAR 500,15563 
CLOADM "CHR" 

CLOAD "DEFINECH" and run it as before. 
CSAVEM your new table with a different 
name • 




Here are some miscellaneous notes. 

The routine will not wrap lines on the screen. When the 
end of a screen line is reached, any remaining characters 
in the string are dropped. 

The "PMODE4" screen can display lower case alpha 
characters. Most of these will fit nicely into a 5x5 matrix. 

For a "PMODE3" screen, a different character set will 
have to be defined (on a second "CSAVE" tape). Lay out 
the character in a 6x7 matrix, remembering that the final 
result will "PRINT" with a 3 x 7 matrix because of the lower 
resolution. Lower case alpha is not practical. This same 



character set can be used with the "PMODE1 11 screen, but 
the letters will be very tall and there are not as many print 
positions. 

The subroutine "PRINTS 11 the text on graphics pages 
1 -4, so the calling program should reserve at least 4 pages 
with PCLEAR4. 

It is possible to "REVERSE VIDEO" the character set 
at any time. The subroutine is set up to "PRINT 1 ' dark fore- 
ground on a light background in PMODE4, similar to Color 
BASIC text mode. The calling program can "POKE 
L + 77,18" at any time to switch all characters to light fore- 
ground on a dark background. This converts the "COMA" 
instruction in the M/L routine to a "NOP' 1 . L is the USR8 
entry address. To turn the reverse video off, "POKE 
L + 77,67" This technique is probably necessary if you are 
trying to use the routine with PMODE3 screens. Experiment 
with different foreground and background colors. 



Hi0 










; ASSEMBLY LISTING FOR "CHR" 


tf20 




ORG 




15 564 




03y| 


3CCC 


USR6 


JSR 


SB3ED 


; CONVERT ARGUMENT TO INTEGER 


040 


3CCF 




sro 


PPOS.PCR 


; STORE PRINT @ POSITION IN PROS 


dii0 


3CD2 




RTS 




; RETURN TO BASIC 


060 


3CD3 


PPOb 


DEFC 


'00* 


■ADDRESS FOR PRINT @ POSITION 


*)70 


3CLJ5 


LENG 


DEFC 


'0' 


; LENGTH OF STRTNG TO PRINT 


0&0 










;X PUINTS TO STRING DESCRIPTOR 


09^ 










; UPON ENTRY TO USR9 


100 


3CD6 


USR9 


LDA 


,x 


;A=LENGTH OF STRIMG 


110 


3CD8 




STA 


LENG. PC R 


; STORE IT IN LENG 


I2(d 


3CDB 




LDY 


2,X 


;Y=ADDRESS OF THE STRING 


130 


3CDE 




LDD 


FP0S,PCR 


;D=PRINT (3 POSITION 


140 


3CE1 




LDX 


#0680 


;X=SCREEN ADDRESS 


150 












160 


3CE4 


LOOP 


CMPD 


£0020 


;IE D<32 


170 


3CE6 




BLO 


GOT 


THEN GOTO GOT 


160 


3CEA 




SUBD 


#0020 


;D=D-32 


190 


3CED 




LEAX 


256, X 


;X=X+256 


200 


3CFI 




BRA 


LOOP 


;GOTO LOOP 


210 












220 


3CF3 


GOT 


LEAX 


D,X 


;X=X+D 


230 


3CF5 




CMPX 


#1D9F 


■IF X IS OFF THE END OF SCREEN 


240 


3CtS 




BLO 


BYTE 


; THEN RETURN TO BASIC 


250 


3CFA 




RTS 






260 










; PRINT 1 BYTE OF THE STRING 


270 


3CfB 


BYTE 


LDA 


,¥ + 


;A= NEXT BYTE OF THE STRING 


260 


3CFD 




CMPA 


#21 


;IF A<33 THEN PRINT SPACE 


290 


3CFF 




BLO 


SPAC 




300 


3D01 




CMPA 


#7A 


;TI A>122 THEN PRIM SPACE 


3i0 


3D03 




Btil 


SPAC 




320 


3D05 




SUBA 


#21 


;A=A-33 


330 


3D07 




BRA 


TABL 


;GOTO TABL 


340 


3iJ0y 


SPAC 


LDA 


fr3F 


;A=63 ' 


350 










J 

I 


360 


3D0B 


TABL 


LDB 


#0U 


;B=6 


370 


3D0D 




MUL 




;D*A*B 


3S0 


3D0E 




TFR 


PCR.U 


;U=PROGRAM COUM'ER 


390 


3D10 




LEA LI 


D,U 


;U=U+D 


400 


3D12 




LEAD 


32 ,U 


; U=U + 33 


410 


3D15 




LDB 


#atf 


;B=-128 


420 








■U NOW CONTA 


INS IKE ABSOLUTE ADDRESS OF THE 


430 








;TABLb! ENTRY 


FOR THE CHARACTER TO BE PRINTED 


440 










* 


450 


3D17 


PR NT 


LDA 


,1 + 


;A=P£EX(U):U=U+1 


460 


3D19 




COMA 




; COMPLEMENT BII PATTERN OF A 


. 470 


3D1A 




S1A 


B.X 


;POXE (B+X),A ON THE SCREEN 


400 


3DIC 




ADDS 


#20 


;B=B+32 


4o5 


3D1E 




CMPB 


#30 


;IK B012& 


490 


3D20 




BNE 


PKNT 


; THEN GOTO P.i.M 


500 


3D 2 2 




TFk 


X, D 


;D=X IN ORDER TO TEST LSB OF X 


51fr 


3D24 




CMPB 


#9F 


;IF END OF A LINE ON SCREEN 


520 


3D26 




BEQ 


DONE 


; THEN GOTO DONE 


530 


3D2& 




LEAX 


1 ,X 


;X=X+1 NEXT PRINT POSIIION 


540 


3D2A 




DEC 


LEijG.PCK 


;LE?,G = LENG - 1 


550 


3D2D 




6NE 


BYTE 


j IF LENGOfl THEN GET NEXT BYTE 


^6tf 


3D2F 


DONE 


RTS 




; RETURN TO BASIC 


"LOADTBL 11 








i(f 


CLEAR 500, 15563 






20 


FOR A=15564 TO 


1566J 


\ 




30 


READ B 












: POKE A, B 










: NEXT 








40 


FOR A=15664 TO 


16383 




50 


POKE A, 
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NEXT 



DATA 140, 242, 142, 
DATA 37, 9, 131, 



60 DATA 189, 179, 237, 237, 140, 1, 57, 0, 0, 
DATA 166, 132, 167, 140, 250, 16, 174, 2, 236 
6, 128, 16, 131, 0, 32 
32, 48, 137, 1, 0, 32 
100 DATA 241, 48, 139, 140, 29, 159, 37, 1, 57 
110 DATA 166, 160, 129, 33, 37, 8, 129, 122, 34 
120 DATA 4, 128, 33, 32, 2, 134, 63, 198, 8, 61 
130 DATA 31, 83, 51, 203, 51, 200, 32, 198, 128 
140 DATA 166, 192, 67, 167, 133, 203, 32, 193 
150 DATA 128, 38, 245, 31, 16, 193, 159, 39, 7 
155 DATA 48, 1, 106, 140, 168, 38, 204, 57 
160 ' 

170 ' "LOADTBL" BY G.FRASER 
180 DATA 32, 32, 32, 32, 32, 0, 32, 
190 DATA 72, 72, 72, 0, 0, 0, 0, 
200 DATA 80, 80, 248, 0, 248, 80, 80, 
210 DATA 32, 120, 128, 112, 8, 240, 64, 
220 DATA 200, 200, 16, 32, 64, 152, 152, 
230 DATA 16, 120, 128, 96, 128, 120, 16, 
240 DATA 32, 32, 32, 0, 0, 0, 0, 
250 DATA 16, 32, 64, 64, 64, 32, 16, 
260 DATA 64, 32, 16, 16, 16, 32, 64, 
270 DATA 0, 136, 80, 248, 80, 136, 0, 
280 DATA 0, 32, 32, 248, 32, 32, 0, 
290 DATA 0, 0, 0, 48, 48, 16, 32, 
300 DATA 0, 0, 0, 248, 0, 0, 0, 
310 DATA 0, 0, 0, 0, 0, 48, 48, 
320 DATA 8, 8, 16, 32, 64, 128, 128, 
330 DATA 48, 72, 72, 72, 72, 72, 48, 
340 DATA 32, 96, 32, 32, 32, 32, 112, 
350 DATA 112, 136, 8, 48, 64, 128, 248, 
360 DATA 112, 136, 8, 48, 8, 136, 112, 
370 DATA 16, 48, 80, 144, 248, 16, 16, 
380 DATA 248, 128, 240, 8, 8, 136, 112, 
390 DATA 112, 128, 128, 240, 136, 136, 112, 
400 DATA 248, 8, 16, 32, 64, 128, 128, 
410 DATA 112, 136, 136, 112, 136, 136, 112, 
420 DATA 112, 136, 136, 120, 8, 8, 112, 
430 DATA 0, 32, 32, 0, 32, 32, 0, 
440 DATA 0, 48, 48, 0, 48, 16, 32, 
450 DATA 8, 16, 32, 64, 32, 16, 8, 
460 DATA 0, 0, 248, 0, 248, 0, 0, 
470 DATA 128, 64, 32, 16, 32, 64, 128, 
500 DATA 112, 136, 8, 16, 32, 0, 32, 
510 DATA 112, 136, 8, 104, 154, 136, 112, 
520 DATA 32, 80, 136, 136, 248, 136, 136, 
530 DATA 240, 72, 72, 112, 72, 72, 240, 
540 DATA 112, 136, 128, 128, 128, 136, 112, 
550 DATA 240, 72, 72, 72, 72, 72, 240, 
560 DATA 248, 128, 128, 240, 128, 128, 248, 
570 DATA 248, 128, 128, 240, 128, 128, 128, 
580 DATA 120, 128, 128, 152, 136, 136, 120, 
590 DATA 136, 136, 136, 248, 136, 136, 136, 
600 DATA 112, 32, 32, 32, 32, 32, 112, 



144, 160, 192, 160, 144, 136, 
128, 128, 128, 128, 128, 248, 



32, 32, 32, 32, 32 
610 DATA 8, 8, 8, 8, 8, 136, 112 
620 DATA 136 
630 DATA 128 
640 DATA 136, 216, 168, 168, 136, 136, 136, 
650 DATA 136, 200, 168, 152, 136, 136, 136, 
660 DATA 248, 136, 136, 136, 136, 136, 248, 
670 DATA 240, 136, 136, 240, 128, 128, 128, 
680 DATA 112, 136, 136, 136, 168, 144, 104, 
690 DATA 240, 136, 136, 240, 160, 144, 136, 
700 DATA 112, 136, 64, 32, 16, 136, 112, 
710 DATA 248, 32, 32, 32, 32, 32, 32, 
720 DATA 136, 136, 136, 136, 136, 136, 112, 
730 DATA 136, 136, 136, 80, 80, 32, 32, 
740 DATA 136, 136, 136, 168, 168, 216, 136, 
750 DATA 136, 136, 80, 32, 80, 136, 136, 
760 DATA 136, 136, 80, 32, 32, 32, 32, 
770 DATA 248, 8, 16, 32, 64, 128, 248, 
780 DATA 112, 64, 64, 64, 64, 64, 112, 
790 DATA 128, 128, 64, 32, 16, 8, 8, 
800 DATA 112, 16, 16, 16, 16, 16, 112, 
810 DATA 32, 112, 168, 32, 32, 32, 32, 

(UP ARROW) 
820 DATA 0, 32, 64, 248, 64, 32, 0, 

(LEFT ARROW) 
830 DATA 0, 0, 0, 0, 0, 0, 0, 

(SPACE) 
840 DATA 0, 0, 24, 8, 120, 136, 120, 
850 DATA 128, 128, 128, 240, 136, 136, 176, 
860 DATA 0, 0, 112, 136, 128, 136, 112, 
870 DATA 8, 8, 8, 120, 136, 136, 120, 
880 DATA 0, 0, 112, 136, 248, 128, 112, 
890 DATA 48, 32, 32, 248, 32, 32, 96, 
900 DATA 0, 0, 120, 136, 120, 8, 48, 
910 DATA 128, 128, 176, 200, 136, 136, 136, 
920 DATA 0, 32, 0, 32, 32, 32, 112, 
930 DATA 0, 16, 0, 16, 16, 144, 96, 
940 DATA 128, 128, 144, 160, 192, 160, 144, 



950 DATA 64 


64 


, 64 


64, 


64, 64, 96, 


1 


960 DATA 0, 


0, 


136, 


216, 


168, 136, 136, 


m 


970 DATA 0, 


0, 


176, 


207, 


136, 136, 136, 


n 


980 DATA 0, 


0, 


112, 


136, 


136, 136, 112, 





990 DATA 0, 


0, 


240, 


136, 


240, 128, 128, 


P 


1000 DATA 


0, 


112 


136 


136, 120, 8, 


q 


1010 DATA 


0, 


152 


224 


128, 128, 128, 


r 


1020 DATA 


0, 


112 


128 


112, 8, 112, 


s 


1030 DATA 


32 


, 248 


, 32 


32, 32, 48, 


t 


1040 DATA 


0, 


136 


136 


136, 152, 104, 


u 


1050 DATA 


0, 


136, 


136 


80, 80, 32, 


V 


1060 DATA 


0, 


136, 


136 


168, 216, 136, 


w 


1070 DATA 


0, 


136, 


80, 


32, 80, 136, 


X 


1080 DATA 0, 


0, 


136, 


136 


248, 8, 56, 


V 


1090 DATA 


0, 


248, 


16, 


32, 64, 248, 


z 



"DEFINECH" 



141 
130 



10 PCLEAR 4 

: GOTO 110 
20 P=0 

: C=1100 
30 IF PEEK(C)=96 THEN POKE C, 
ELSE POKE C, 
40 I$=INKEY$ 

: IF 1$="" THEN 40 ELSE I=ASC(I$) 
: IF 1=88 THEN V=32 ELSE IF 1=32 THEN V=96 
ELSE IF PEEK(C)=130 THEN V=32 ELSE V=96 
50 POKE C, V 

IF 1=13 THEN 80 ELSE IF 1=10 THEN C=C+32 
GOTO 60 ELSE IF P<7 THEN P=P+1 
C=C+1 

GOTO 30 ELSE P=0 
C=C+25 

60 IF C<1332 THEN 30 ELSE 20 
70 ' ENTER KEY 

: SAVE THE UPDATES TO THE TABLE 
80 FOR Y=0 TO 7 
B=0 

FOR X=0 TO 7 
-B=B*2 

V=PEEK(Y*32+1100+X) 
IF V=32 THEN B=B+1 
90 NEXT X 

: POKE W+Y, B 
: NEXT Y 
100 ' PROMPT SCREEN FOR CHARACTER UPDATE 




110 CLS 

FOR V=21 TO 42 

SET(V, 1, 1) 

SET(V, 22, 1) 

NEXT V 

FOR V=2 TO 21 

SET(21, V, 1) 

SET(42, V, 1) 

NEXT V 
120 PRINT @ 423, "UPDATE CHARACTER "; 

LINEINPUT A$ 

IF A$="" THEN 180 ELSE W=ASC(A$) 

PRINT @ 440, CHR$(W) 

IF W<33 OR W>122 THEN W=63 ELSE W=W-33 
130 ' IF THE BIT IS SET, DISPLAY BLACK A3C(32) 
140 W=W*3+15664 

FOR Y=0 TO 7 

B=PEEK(W+Y) 

IF B=0 THEN 160 ELSE FOR X=7 TO STEP -1 

V=B/2 

IF V-FIX(V) >0 THEN POKE Y*32+1100+X, 32 
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150 B=FIX(V) 

: NEXT X 
160 NEXT Y 

: GOTO 20 
170 ' HIGH RESOLUTION GRAPHICS TEST PROGRAM 
180 PMODE 4, 1 

COLOR 0, 1 
L=15564 
DEFUSR8=L 
DEFUSR9=L+10 
PCLS 

SCREEN 1, 1 
190 B=USR8(0) 

: B$=USR9 ("HELLO, BUDDY.") 
200 B=50 

: A=USR8(B) 
: A$=USR9(B$) 
210 A=USR8(64) 

: A$=USR9("ABCDEFGHIJKLMNOPQRSTUVWXYZ") 
220 A=USR8(96) 

: A$=USR9("abcdefghi jklmnopqrstuvwxyz") 
230 A=USR8(128) 

: A$=USR9("1234567890 $64,873,190.25") 
240 A=U3R8(160) 

: B$=" !" + CHR$(34) + "#$%&'()*: =-@+;<, 

>.?/M\]" 
: A$=USR9(B$) 
250 CIRCLE(128, 120), 52, , .9 

: CIRCLE(128, 120), 30, , .9, .1, .4 
: CIRCLEU08, 110), 3 
: CIRCLE(148, 110), 3 
260 A$=INKEY$ 

: IF A$="" THEN 260 ELSE 110 
270 ' 

280 ' "DEFINECH" BY G.FRASER 
290 ' BEFORE RUNNING, DO THE FOLLOWING 

IMMEDIATE COMMANDS: 
300 ' CLEAR 500, 15563 
310 ' CLOADM "CHR" 

(OR ELSE, RUN PROGRAM "LOADTBL") 



TEXTURE 



George Fraser 

3403 Bear Creek Drive 

Newbury Park, CA 91320 



Color Computer owners, wish you had more than just 
black and white (or green and black) for your highest res- 
olution PMODE 4 screen? Want to brighten things up a 
little? How about four colors or more in addition to your 
highest resolution black and white? How about three 
different shades of blue on the same screen? How about 
being able to texture or shade figures with an almost unlim- 
ited variety of patterns, colored and monochrome? 

Look, Ma, no hands! Now you can have all of these 
features at once on the same screen by using my little pro- 
gram I call "Texture." It was sort of inspired by Chamber- 
lain's "Designs" in the December 1981 Newsletter. I 
wanted a way to control the generation of colors and pat- 
terns on the graphics screen. My resulting machine 
language program is similar to Radio Shack's "PAINT" 
command but is a little more versatile. 

Key in the BASIC program carefully and make sure 
you have a good, usable copy CSAVED on tape before you 
try to run it for the first time. A mistake in the machine lan- 
guage routine can easily destroy your BASIC program in 
memory. 

Here is how it works. You clear the graphics screen 
with background color (white) and draw a figure with fore- 
ground color (black). You must then supply five parame- 
ters for the M/L subroutine (USR7), which I call A, B, C, X, 
andY. 



X and Y have about the same meaning they do for the 
Radio Shack PAINT command. They are the coordinates of 
a point inside of a closed figure you want to paint. In addi- 
tion, X must be greater than 1, and Y must be on the top 
line to be painted. My program is not as smart as "PAINT", 
because it works only from the top down, and cannot find 
its way to all parts of a complex figure, as line 170 of the 
BASIC program will show. 




A, B, and C control the color or texture pattern that the 
figure will be "painted" with. Each is a number from to 
255. The first line "painted" is done using the bit pattern of 
A (taken to be an eight bit binary number). Similarly, the 
second line is done using the bit pattern of B. Then if C is 
not zero, the bit patterns of A and B are shifted left or right 
the number of bits specified by C. Then the third line is 
generated from A, the fourth from B, etc. If C is zero, A and 
B are not shifted. C = 1 means shift 1 bit right, 2 means 2 
bits right, 255 means shift 1 bit left, 254 means shift 2 bits 
left, etc. 

Here is the scoop on A and B. A value of zero causes 
black (foreground color). 255 causes white (background 
color, no change). Anything in between will generate var- 
ious kinds of color and/or texture, but you will have to 
experiment to see what you can get. Multiples of 17 give 
generally good results. (In binary, they give 4 bit repeating 
patterns.) 
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Examples: 

AorB 



255 

17 

34 

221 (17*13) 

The following table summarizes some of the better 
combinations of A, B, and C that I have found. The colors 
produced on your own TV set may be slightly different. 



Bit Pattern (1 = white pixel) 

00000000 
11111111 
00010001 
00100010 
11011101 



A, B, C 

85, 85, 
170, 170, 
85, 255, 
170, 255, 
204,51, 
17, 17, 
34, 34, 
187, 187, 
119, 119, 
153, 102, 

I OO, <lDO, c. 

204, 255, 2 
34, 255, 2 
17, 255,2 



COLOR/TEXTURE 

CLEAR BLUE 
CLEAR BRIGHT RED 
LIGHT BLUE STRIPES 
LIGHT RED STRIPES 
DARK BLUE CROSSHATCH 
GRAY BLUE CROSSHATCH 
BRIGHT RED CROSSHATCH 
BLUE CROSSHATCH 
YELLOW CROSSHATCH 
GREEN TEXTURED 
LIGHT GREEN TEXTURED 
VIOLET TEXTURED 
RED TEXTURED 
GRAY TEXTURED 



Edges may be a little muddy someplaces, but the 
overall effect is surprisingly good. Now you should be able 
to turn out some really professional looking colored 
graphs, pie charts, etc. 

When you are sure the M/L routine is working OK, 
save it to tape with: CSAVEM "TEXML", 15882, 16167, 350. 
To incorporate the routine in another grahics program, you 
will need to include lines 30, 40, 60, 70, 90, 100, 110, 150, 
and 160. To protect memory for the machine language pro- 
gram, you will load the M/L program using the "CLOADM" 
command after doing a "CLEAR 200, 15871 " (the extra ten 
bytes from 15871 to 15881 are a data area.) 

The machine language routine can be relocated to 
any protected area of memory by changing S in line 40, 
provided that S is a multiple of 256. This is the reason for 
line 220. The first 10 bytes starting at S is a "scratch pad 
area" which is addressed directly (through the direct page 
register), so it must be properly boundary aligned to work. 

To use "TEXTURE" with Radio Shack's 8 bit print driver 
program, you will have to change line 30 to "CLEAR 
200,15359" and line 40 to "S = 15360". Then you can: 
CSAVE "TEXML", 15370, 15655, 350. Then, to get every- 
thing set up, do the following: 

CLEAR 200, 15359 

CLOADM "SCRPRT" (RADIO SHACK PRINT DRIVER) 

EXEC 

POKE 16303,0255 (REVERSE PRINT FEATURE) 

CLOADM "TEXML" (TEXTURE PROGRAM) 

CL0AD (YOUR GRAPHICS PROGRAM IN BASIC) 

The "TEXTURE" subroutine will also work with 
PMODE3 graphics (try it). It also gives very good results 
with a black and white TV. 

The Program 

10 ' "TEXTURE" BY G.FRASER FEB 1982 
20 ' FOR THE TRS-80 COLOR COMPUTER 
30 CLEAR 200. 15871 



40 S=1587 2 'LOAD ADDR FOR M/L 


50 G0SUB 220 'LOAD M/L ROUTINE 


60 PMODE 4, 1 




: COLOR 0, 


1 


: CLS 




70 DEFUSR7=S+10 




80 PRINT " ' 




: INPUT "A, 


B, C"; A, B, C 


90 POKE S, A 


'1ST TEXTURE 


100 POKE S+l , B 


'2ND TEXTURE 


110 POKE S+2, C 


'OFFSET 


120 PCLS 




: SCREEN 1 . 


, 1 



130 CIRCLE (128, 70), 50, , .9 

140 LINE (10, 10)-(200, 100), PSET, B 

150 X=128 

: Y=27 

: D = 128*Y + FIX(X/2) 
160 Z=U3R7(D) 
170 POKE S, 17 

: POKE S+l, 255 

: POKE S+2, 2 

: 2=USR7(1430) 
130 SOUND 100, 1 
190 A$ = INKEY$ 

200 IF A$ = "" THEN 190 ELSE 80 
210 ' LOAD M/L CODE 
220 IF S/256 <> FIX(3/256) THEN STOP 
230 PRINT "LOADING M/L CODE" 
240 FOR A=S+10 TO S+29 5 
250 READ B 

: POKE A, B 

: C=C+B 
260 NEXT A 
270 IF C=23720 THEN RETURN ELSE PRINT C 

: STOP 
280 DATA 189, 179, 237, 52, 6, 31, 80, 31, 139 
290 DATA 53, 6, 142, 6, 0, 16, 131, 0, 128, 37, 8 
300 DATA 131, 0, 128, 48, 136, 32, 32, 242, 140 
310 DATA 29, 224, 16, 34, 0, 133, 31, 18, 215, 6 
320 DATA 215, 7, 84, 84, 58, 214, 6, 141, 
330 DATA 215, 3, 15, 4, 134, 128, 151, 9, 
340 DATA 255, 151, 8, 76, 129, 127, 34, i 
350 DATA 36, 141, 44, 209, 3, 
360 DATA 239, 145, 7, 36, 87, 
370 DATA 13, 8, 43, 227, 145, 
380 DATA 215, 8, 32, 217, 151, 
390 DATA 31, 137, 84, 84, 58, 
400 DATA 3, 38, 11, 198, 192, 
410 DATA 84, 84, 84, 84, 57 . 



65 
134 
3, 141 
38, 12, 13, 8, 42 
151, 8, 32, 231 
6, 34, 6, 198, 255 
9, 32, 48, 31, 33 
31, 137, 57, 196 
228, 132, 84, 84 
19 3, 1, 38, 6, 198 



420 DATA 48, 228, 132, 32, 241, 
425 DATA 198, 12, 228, 132, 32, 



19 3, 2, 38, 6 
233, 228, 132 



430 DATA 57, 10, 9, 214, 9, 215, 7, 214, 8, 43 
440 DATA 7, 215, 6, 92, 209, 9, 37, 4, 79, 31 
450 DATA 139, 57, 150, 0, 13, 4, 39, 2, 150, 1 
460 DATA 151, 5, 150, 8, 32, 5, 76, 145, 9, 34 
470 DATA 41, 141, 166, 196, 3, 38, 4, 198, 192 
480 DATA 32, 14, 193, 1, 38, 4, 198, 48, 32, 6 
490 DATA 193, 2, 38, 2, 198, 12, 52, 4, 212, 5 
500 DATA 52, 4, 230, 97, 83, 228, 132, 234, 225 
510 DATA 231, 132, 32, 210, 13, 4, 38, 4, 12, 4 
520 DATA 32, 34, 214, 2, 215, 4, 39, 28 
530 DATA 220, 0, 70, 6, 0, 86, 6, 1, 
540 DATA 244, 32, 12, 220, 0, 73, 9, 
550 DATA 12, 4, 38, 244, 49, 168, 32 
560 DATA 224, 34, 141, 22, 255, 22 



43, 14 
10, 4, 38 
0, 89, 9, 1 
16, 140, 29 



Rotational Grafx 

John Ennis 

436 East Redbud, #11 

Knoxville, TN 37920 

"Rotational Grafx" is a program that, given rational 
information, generates objects of rotation in a 3D-space. 
The conventional axis is used as a reference. An entry of 
co-ordinates may be a two-dimensional trace or a three- 
dimensional object. This object can then be rotated about 
any axis in the system. 

The first part of the program generates the object and 
pokes in data at specified locations. The second part of the 
program then displays the object according to specified 
parameters. 
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During viewing of the object, the user can change 
viewing parameters by pressing the spacebar. Pressing 
"N" allows user to generate a new object after editing any 
input information he chooses. 




m *a 

S »»^fi g»-.. J .try ■££■£ 







The displacement is entered as 0,0,0 for the First gen- 
eration. Scaling constant is set at 1. The rotation direction 
vector is a unit vector orthogonal to planes of symmetry. To 
rotate given points about the Z-axis, the rotation direction 
vector is 0,0,1. Any vector may be used with magnitude 
( = SQR (X) 2 + (Y) 2 + (Z) 2 ) equal to 1. The terminal rotation 
angle for full rotation in a clockwise direction is approx. 6.3 
radians. The rotation angle increment sets radians per 
frame. Keep magnitude of each point <100 to be safe. 

VIEWING OBJECT 

A view object increment of 1 will display the object as 
generated. Traces may be erased to view each successive 
frame alone. 

Other functions will become apparent with use. 

10 ' REM : "ROTATIONAL GRAFX" 16K EXTENDED BASIC 

REQUIRED JOHN ENNIS 436 E.REDBUD 

DR.#11,KN0XVILLE,TN. 37920 JAN. 1,1982 
20 'REM: COPYRIGHT CLAIMED ONLY UPON SALE TO THIRD 

PARTY . 
30 CLS 

: U=4500 
40 SOUND 128, 2 

: LINEINPUT "generate new object? " ; A$ 
50 IF A$="YES" THEN GOTO 70 
60 GOTO 600 
70 SOUND 200, 1 

: CLS 

: INPUT "displacement"; X0 , Y0, Z0 
80 SOUND 200, 1 

: INPUT "scaling constant"; SI 
90 SOUND 200, 1 

: INPUT "rotation dir. vector"; A, B, C 
100 SOUND 200, 1 

: INPUT "terminal rotation angle"; R 
110 SOUND 200, 1 

: INPUT "rotation angle increment"; S 
120 U2=U-500 
130 POKE 16351, R 

: POKE 16352, S*100 
140 IF W=0 THEN GOTO 160 
150 SOUND 220, 2 

: LINEINPUT "new points? "; D$ 
160 IF D$="N0" THEN GOTO 190 

170 IF W>0 THEN PRINT "last n=" ; PEEK( 16350) 
180 SOUND 200, 1 

: INPUT "number of points"; N 

: GOTO 200 
190 N=PEEK( 16350) 
200 S2=FIX(R/S*2*N) 

: S3=S2/U2*S 
210 S3=INT(S3*10001) 

: S3=S3/10000 
220 IF S2>U2 THEN PRINT "mem. not 



protected :min. increment=" ; S3 
230 PRINT "required .-available"; S2; ":"; 
: FOR DLAY=1 TO 100 
: NEXT DLAY 
240 IF S2>U THEN GOTO 100 
250 POKE 16350, N 
260 IF D$="NO" THEN GOTO 330 
270 N=PEEK( 16350) 

280 FOR D=12000 TO 12000+(N*3)-3 STEP 3 
290 SOUND 220, 1 

: INPUT "input coordinate"; X, Y, Z 
300 X=100+X 

: Y=100+Y 
: Z=100+Z 
310 POKE D, X 

: POKE D+l, Y 
: POKE D+2, Z 
320 NEXT D 
330 SOUND 200, 1 

: SOUND 100, 2 
340 F=12000 

: N=PEEK(16350) 
350 W=0 

: 0=0 
360 X=PEEK(F) 

: Y=PEEK(F+1) 
: Z=PEEK(F+2) 
370 X=X~100 

: Y=Y-100 
: Z=Z-100 
380 T=12500+W 
390 X2=X+X0 

: Y2=Y+Y0 
: Z2=Z+Z0 
400 FOR Q=0 TO R STEP S 
410 V=1-C0S(Q) 
420 L1=(A*A*V)+(C0S(Q)) 

: L2=(A*B*V)-(C*SIN(Q)) 
: L3=(A*C*V) + (B*SIN(Q)) 
430 M1=(B*A*V)+(C*SIN(Q)) 
: M2=(B*B*V)+(C0S(Q)) 
: M3=(B*C*V)-(A*SIN(Q)) 
440 N1=(C*A*V)-(B*SIN(Q)) 

: N2=(C*B*V)+(A*SIN(Q)) 
: N3=(C*C*V)+(COS(Q)) 
450 X3=(L1*X2)+(M1*Y2)+(N1*Z2) 
460 Y3=(L2*X2)+(M2*Y2)+(N2*Z2) 
470 Z3=(L3*X2)+(M3*Y2)+(N3*Z2) 
480 CLS 
490 X3=X3*S1 

: Y3=Y3*S1 
: Z3=Z3*S1 
500 X3=FIX(X3) 

: Y3=FIX(Y3) 
: Z3=FIX(Z3) 
510 PRINT "point*"; O+l; ":"; "X=" ; X3; " 

"Z="; Z3 
520 PRINT "memory location:"; T; T+l 
530 X3=.3*X3 

: X=128+Y3-X3 
: Y=96~Z3+X3 
540 X7=ABS(X3) 

: Y7=ABS(Y3) 
: Z7=ABS(Z3) 
550 X=FIX(X) 

: Y=FIX(Y) 
560 POKE T, X 

: POKE T+l, Y 
570 T=T+(2*N) 
: NEXT Q 
580 W=W+2 

: 0=0+1 

: IF 0=N THEN GOTO 600 
590 F=F+3 

: GOTO 360 
600 CLS 
610 SOUND 100, 5 

: INPUT "viewing increment"; N 
620 SOUND 200, 1 

: INPUT "pmode"; Q 
630 SOUND 200, 1 

: LINEINPUT "erase traces? "; B$ 
640 K=PEEK( 16350) 

: R=PEEK( 16351) 
: S=PEEK(16352)/100 
650 PMODE Q 

: SCREEN 1, 
660 PCLS 4 
670 Z=12500+(R/S*K*2) 

: V=2*K*N 
680 FOR A=12500 TO Z STEP V 
690 A$=INKEY$ 
700 IF A$=" " THEN GOTO 600 
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710 IF A$="N" THEM GOTO 70 
720 IF B$="YES n THEN PCLS 4 
730 FOR P=0 TO U*2>-4 STEP 2 

: LIN6<PEEK(A+P), PEEK( A+P+l )) -(PEEK(A+P+2) , 

PEEK(A+P+3)>, PSET 

: NEXT P 

740 UNE(PEEK(A), PE£K(A+1 ) ) -(PEEKC A+2) , PEEK(A+3)J 
PSET 

: NEXT A 
750 IF B$="Y£S" THEN GOTO 790 
760 FOR 8=12500 TO Z-J STEP 2 

: LlNttPEEK(fl) , PEEK{ B+l ) ) -(PEEK<B+{K*2)) , 

PEEK.(B + (K*2) + 1)) , PSET * 

: NEXT B 
770 SCREEN 1 , i 
76\t FOR DLAY=1 TO 1 

: NEXT OLAY 
790 PCLS 4 
8$\& GO 10 670 




DRAW FOR 4K 

David B. Shapiro 

135 Appley Avenue Libertyvllle, IL 60048 

This program is to show all the Extended Color BASIC 
owners that they are not the only ones that can do impres- 
sive graphics. 

The first program loads a ML routine into the computer 
memory. It must be run before the draw program. 



20 
30 
40 
50 
60 
70 

30 



ML ROUTLHE FOR DRAW PROGRAM 



DAVID SHAPIRO i/6/82 



LOAD AND RUii THIS PROGRAM 

BEFORii DRAW PROGRAM 

ML ROUTINE WILL CLEAR 

GRAPHICS SCREEN 
90 CLEAR 20, 2S59 
100 FOR 1=320 TO 332 
110 READ K 

: POKE I, K 
: NEXT 
120 ' 321 CONTAINS CODE 
130 DATA 134, 0, 142 
140 ' START ADDR. 
150 DATA 10, 
160 DATA 167, 12a, 140 
170 ' END ADDR. 
Lb0 DATA lb> 
190 DATA 37, 249, 57 
200 POKE 157, 1 

: POKE 158, 64 

The draw program uses a 64x49 four color graphics 
mode. (I found this mode by accident. It is not mentioned 
in "Getting Started with Color Basic: 1 ) 

I am sorry about the condition of my program, but I 
had to save every byte I could. 

After you run the program press <C>. This will clear the 
screen. Your right joystick controls a flashing cursor which 
can be moved around the screen. Press <R) to get to the 
bottom of the screen. To set a graphics spot press 1, 2, or 



3 for color or press zero (0) to reset a spot. If you want a 
block all one color, place the cursor in one corner, press 
'B; then move it to the opposite corner and press 'B' again. 
Then enter color (0, 1, 2, or 3) then <ENTER). Press (C) to 
clear the screen and start over. 

SKRN 

100 CLEAR 5, 2559 
: DIM T{3, 3) 
: FOR J=0 TO 3 
; FOR 1=0 TO 3 
: READ 1(1, J) 
■ NEXT I, J 

; FOR 1=6547 2 TO 65490 STEP 2 
; READ X 
: POKE X+l. 
: NEXT 

: DATA 252, 243, 207, 63, 1, 4, 16, 64, 2, S, 
32. 12d, 3, 12, 4S, 192, 1, 1, 0, 1, 0, 1, 0, 0, 

0. 

: POKE 65314, 128 
300 GOSUB 2000 

: If AS= ,f " THEN 300 ELSE IF A$="C M THEN EXEC 

: GOTO 300 

: ELSE IF A$="R" THEN GOSUB 1200 

; GOTO 300 

: ELSE IF A$- ,, B M THEN C=2 

: GOSUB 1100 

: X1=X 

: Yl«Y 

: GOTO 400 

: ELSE C=VALU$) 

: IF C>3 THEN 300 ELSE GOSUB 1100 

: GOTO 300 
400 GOSUB 2000 

: IF A$<>"B" THEN 400 ELSE X2=X 

: I=Y 

: INPUT C 

: FOR X=X1 TO X2 STEP SGN(X2-X1) 

. FOR Y=Y1 TO I STEP SGN(I-Yl) 

: GOSUB 1100 

; NEXT Y, X 

: GOTO 300 
1100 Tl-lNT(X/4) 

: T2-2560+Tl+Y*16 

: T3=3-X+T1*4 

: POKE f2, T(T3, 0) AND PEEK (12) 

; IF C-0 IHElh RETURN ELSE POKE T2 , T(T3, C) OR 

PEEK(T2) 
; RETURN 
1200 YS=YS-32*SGN(YS-1) 
; RETURN 

1300 T1-INKX/4) 

: T2=2560+T1+Y*16 

T3=3-X+T1*4 

T4=P££K(T2) 

POKii T2, T(T3. 2) OR T4 

FOR 1=0 TO 13 

NEXT 

POKE 12, T(13, 0) AND 14 

FOR 1=0 TO 15 

NEXT 

POKE T2, T4 

RETURN 
2000 X=JOYSfKC0) 

: Y-JOYSTK( D+YS 
: GOSUB 1300 
: A$=INKEYS 
: RETURN 






















J 
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Call or Visit the 
Radio Shack Computer Center 

Near You for More Information 



ALABAMA 

BIRMINGHAM 2428 Green Springs Hwy . 

(205} 9450792 
HUNTSVILLE 1400 N Memorial Pkwy . (205) 536 1581 
MOBILE 405 Bel-Air Blvd . {205) 471-1617 
MONTGOMERY *24 Unwi Square SIC. (205) 271-1500 

ARIZONA 

PHOENIX 10233 Metro Pkwy £ , (602) 861 1124, 

4301 N 7th Ave . (602) 277-3031 
SCQTTSDALE 2525 N ScottSdale Rd . (602) 990-2241 
TEMPE 83 £ Broadway. (602) 894-2065 
TUCSON 5622 E Broadway. (§02) 748-0101 

ARKANSAS 
LITTLE ROCK Town & Country S/C. University & Asfier, 
(501) 568-5694 

CALIFORNIA 

ANAHEIM 509 Katelia. (714) 776-9540 
BERKELEY 1922 Grove St.. (415) 648-9170 
REVERLY HILLS 8500 Wilshire Blvd , (213) 659-8870 
uANOGA PARK 8371 To pang a Canyon. (213) 347 9800 
CARMICHAEL 6305 Fairoaks Blvd (916) 484-6815 
CHULA VISTA 1201 3rd Ave . (714) 420-3810 
DOWNEY 8031 Florence Ave , (213) 927-7882 
ESCONDIDO 347 W. Mission Ave , (714) 741-6032 
FRESNO Princeton S/C, 2721 N Blackstone Ave . 

(209) 225-5551 
GLENDALE 236 N Brand Blvd . (213) 246-9310 
HAYWARD 20942 Mission Blvd , (415) 278-2888 
LAKEWOOD 5830 Lake wood Blvd., (213) 920-9671 
LA MESA 5346 Jackson Dr. (714) 460-3610 
LONG BEACH 2119 Bellflower Blvd , (213} 597-3377 
LOS ANGELES 740 S. Olive St.. (213) 629-2455 
MONTEREY 484 Washington Si., (408) 375-8430 
MOUNTAIN VIEW 1933 El Camino Real W . 

(415) 961-0542 
OAKLAND 1733 Broadway. (415) 763-3183 
PASADENA 575 S Lake Ave.. (213) 449-5424 
RIVERSIDE 3844 La Sierra Ave . (714) 689-0340 
SACRAMENTO 4749 J Si , (916) 454-3287 
SAN BERNARDINO 764 Inland Center Or . 

(714) 884-6871 
SAN DIEGO 3062 Clairemont Dr., (714) 276-6050, 3902 

El Cajon Blvd.. (714) 280-0227 
SAN FRANCISCO One Market Place. (415) 777-9810 
SAN JOSE 1228 S, Bascom Ave.. (408) 297-2603 
SAN MATEQ 3180 Campus Dr , (415) 573-8607 
SANTA BARBARA 4141 State St. A-1. (805) 967-4538 
SANTA FE SPRINGS 14138 East Firestone Blvd , 

(213) 921-0702 
STOCKTON College Sq. S/C, 963 West March Lane, 

(209) 957-3676 
TARZANA 18545 Ventura Blvd . (213) 343-1696 
TORRANCE 3840 Sepulveda at Hawthorne. 

(213) 373-0306 
VENTURA 4005 E Main St.. (805) 654-0196 
WEST COVINA 2516 E Workman St , (213) 915-5791 

COLORADO 
BOULDER Arapahoe Plaia. 3550 Arapahoe. 

(303) 443-7142 
COLORADO SPRINGS 4341 N Academy. 

(303) 593-7500 
DENVER 8000 E. Quincy. (303) 770-1362 
LAKEWOOD 2099 Wadsworth Blvd . (303) 232-6277 

CONNECTICUT 

EAST HAVEN 51 Frontage Rd., (203) 467-8864 
FAIRFIELD 1196 Kinos Hwy & Rt. 1. (203) 255-6099 
MANCHESTER 228 Spencer St.. (203) 649-8210 
NORWALK Rt. 7-345 Main Ave . (203) 846-3418 
ORANGE Woolco S/C; 538 Boston Post Rd., 

(203) 795-1291 
WATER BURY 105 Bank St., (203) 573-8800 
WATERFQRD 122 Boston Port Rd . (203) 443-0716 
WEST HARTFORD 39 S. Main St.. (203) 523-4283 

DELAWARE 

WILMINGTON 3647 Kirkwood Hwy , (302) 999-0193 

DISTRICT OF COLUMBIA 
WASHINGTON 1800 M St NW„ (202) 822-3933 

FLORIDA 
ALTAMONTE SPRINGS 766 B East Altamonte Dr., 

(305) 339-1313 
CLEARWATER 2460-D US 19 North, (813) 797-3223 
HOLLYWOOD 429 S State Rd. #7. (305) 966-4382 
JACKSONVILLE 8252 Arlington Exprwy. , 

(904) 725-2594 
LAUDERDALE LAKES 4317-25 N State Rd. 7, 

(305) 486-2240 
MIAMI 9459 S. Dixie Hwy.. (305) 667-2316; 1601 

Biscayne Blvd.. (305) 374-6433; 15 SE. 2nd Ave.. 

(305) 374-7310, 20761 S Dixie Hwy., 

(305) 238-2518 
N. MIAMI BEACH The Promenade. 1777 N.E 163rd 

St (305) 940-6887 
ORLANDO 1238 E Colonial Dr.. (305) 894-0570 
ST. PETERSBURG 3451 66th St. N , (813) 381-2366 
SARASOTA 5251 S. Tamiami Tr. (Hwy. 41), 

(813) 923-4721 
TALLAHASSEE 2529 S Adams, (904) 222-4440 
TAMPA 4555 W. Kennedy, (813) 879-7470: 1825 E. 

Fowler Ave . (81 3) 971-1130 
W. PALM BEACH 2271 -A Palm Beach Lakes Blvd., 

(305) 683-3100 

GEORGIA 

AUGUSTA 3435 Wrighisbcro Rd. (404) 738-5998 
ATLANTA 2108 Henderson Mill, (404) 939-9688; 49 W 
Paces Ferry, (404) 231-9604; Akers Mill S/C. 2937 
Cobb Parkway NW.. (404) 955-5235. 113 Peachtree 

St (404) 223-5904 
COLLEGE PARK 5309 Old National Hwy., 

(404) 761-3056 
DORAVILLE 5697 Butord Hwy., (404) 458-2691 
SAVANNAH Chatham Pla;a. 7805 Abercorn St., 

(912) 355-6074 



IDAHO 
80ISE 691 S Capitol Blvd , (208) 344-5450 

ILLINOIS 

AURORA 890 North Lake St . (312) 844 2224 
CHICAGO 4355 S Archer Ave., (312) 376-7617; CNA 

Pla?a. 309 S Wabash, (312) 9220536 
ELMWOOO PARK 7212 W Grand Ave , (312) 452 7500 
FAIRVIEW HEIGHTS "4 Market Place. (618) 398-6410 
HOMEWOOO/GLENWOOD 329 Glen wood Lansing, 

(312) 758 0440 
LaGRANGE One S. LaGrange Rd . (312) 482-3484 
UBERTYVtLLE 1350 S Milwaukee Ave, , 

(312) 367-8230 
LOMBARD 4 Yorktown Center, (312) 629-5350 
NILES 8349 Golt Rd , (312) 470-0670 
OAK LAWN 4815 W 95th St . (312) 425-9130 
PEORIA 4125 N Sheridan Rd.. (309) 685-7056 
ROCKFORD North Town S/C, 3600 N Mam St . 

(815) 282-1001 
SCHAUMBURG 651 Mall Dr . (312) 884-8600 
SPRINGFIELD Sherwood Plaza, 2478 Wabash. 

(217) 787-3066 

INDIANA 
EVANSVILLE 431 Diamond Ave.. (612) 426-1715 
FT. WAYNE 747 Northcrest S/C. (219) 482-9547 
GRIFFITH 208 W Ridge Rd., (219) 838-3000 
INDIANAPOLIS 6242 E 82nd St , Caslleton Plz . 
(317) 849-6896. Speedway Plaza. 6129 B 
Crawlordsville. (317) 244-2221; 10013 E 
Washington St.. (317) 898-4B87 
TERRE HAUTE 3460 US Hwy 41 S . (812) 234-3212 



DAVENFURT 616 E Kimberly Rd . (319) 386-3457 
DES MOINES 7660 Hickman Rd,, Sherwood Forest 
S/M. (515) 270-0193 

KANSAS 
OVERLAND PARK 8619 W 95th. (913) 642-1301 
TOPEKA White Lakes Plaza, West Tower. 3715 Plaza 

Dr., (913) 267-6420 
WICHITA 2732 Blvd. Plaza S/C. (316) 681-1212 

KENTUCKY 

FLORENCE 7727 Mali Rd.. (606) 371-2811 
LEXINGTON 2909 Richmond Rd.. (606) 269-7321 
LOUISVILLE 2900 Taylorsviile Rd , (502) 459-9901 

LOUISIANA 

BATON ROUGE 7007 F^rida Blvd., (504) 928-5260 
METAIRIE 3750 Veterans Hwy . (504) 454-3681 
NEW ORLEANS 327 St. Charles Ave , (504) 523-6408 
SHREVEPORT 1545 Line Ave . (318) 221-5125 

MAINE 

BANGOR Maine Square, (207) 945-5491 

MARYLAND 

BALTIMORE 7942 Belair Rd., Putty Hill Plaza. 

(301) 882-9583; 115 N. Charles Si at Lexmqton, 

(301) 539 7251 
CATONSVILLE One Mile West S/C, 6600 B Bait Nat I 

Pike, (301) 788-3277 
FREDERICK Shoppers World, Rt. 40W. (301) 695-8440 
NEW CARRQLLTON LANHAM 7949 Annapolis Rd , 

(301) 459-S030 
PASADENA 8120 Ritchie Hwy.. (301) 544-2352 
ROCKVILLE Congressional Plaza, 1673 Rockville Pike. 

(301) 984-0424 
SALISBURY Shoppers World S/C. Rt 50, 

(301 ) 546-9223 

MASSACHUSETTS 
BOSTON 730 Commonwealth Ave, (617) 739-1704: 

111 Summer St.. (617) 542-0361 
8RAINTREE South Shore Plaza, 250 Granite Sl , 

(617) 848-9290 
BROCKTON 675 Belmont i6i7i 563-2270 
BURLINGTON Crossroads Plaza. Rt. 3 5 , 

(617) 229-2850 
CAMBRIDGE Harvard Square, 28 Boylston St , 

(617) 354-7694 
CHESTNUT HILL 200 Boylston St, (617) 969-2031 
NATICK 1400 Worcester Rd, (617) 875-8721 
SAUGUS 343 Broadway, (617) 233-4985 
SPRINGFIELD 1965 Main St.. Northgate Plz., 

(413) 732-4745 
WORCESTER Lincoln Plaza, (617) 852-8844 

MICHIGAN 
BIRMINGHAM 3620 W Maple Rd, (313) 647-2151 
DETROIT OWNTN 1559 Woodward Ave., 

(313) 961-6855 
FLINT G3298 Miller Rd . Yorkshire Plaza, 

(313) 732-2530 
GRAND RAPIDS 3142 28th St. SE.. (616) 957-2040 
KALAMAZOO 25 Kalamazoo Center. (616) 343-0780 
LANSING 2519 S Cedar St., (517) 372-1120 
UVONIA 33470 W 7 Mile Rd,, (313) 476-6800 
ROSEV1LL! 31873 GratiDt Ave.. (313) 296-6210 
SOUTHFIELD 17651 West 12 Mile Rd., 

(313) 569-1027 
TROY Oakland Plaza, 322 John R. Rd, (313) 585-3900 

MINNESOTA 

8LOOMINGTON 10566 France Ave. S„ (612) 884-1641 
GOLDEN VALLEY Golden Valley S/C. 8016 Olson 

Memorial Hwy., (612) 542-8471 
ST. PAUL 6th & Wabasha, (612) 291-7230 

MISSISSIPPI 
JACKSON 979 Ellis Ave.. (601) 352-5001 

MISSOURI 

FLORISSANT 47 Florissant Oaks S/C, (314) 921-7722 
INDEPENDENCE 1325 S. Noiand Rd , (816) 254-3701 
KANSAS CITY 4025 N. Oak Trafficway, (816) 455-338 1 
ST. ANN 10472 St. Charles Rock Rd., (314) 428-1400 
SPRINGFIELD 2684 S Glenstone, (417) 883-4320 

NEBRASKA 

OMAHA 3006 Dodge St.. (402) 346-4003 
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NEVADA 

LAS VEGAS Commercial Center. 953 E Sahara #31-8. 

(702) 731-3956 
RENO 332B Kiettke Lane. (702) 826-6327 

NEW HAMPSHIRE 

MANCHESTER Hampshire Piaza, 1000 Elm St.. 
(603) 625 4040 

NEW JERSEY 
BHIDGEWATER 1472 US Highway 22 East, 

(201) 469-3232 
E. BRUNSWICK 595 A Rl IB, (201) 238-7142 
E. HANOVER Rt. 10, Hanover Plaza. (201) B84-1200 
LAWRENCEVILLE Rt 1 & Texas Ave.. (609) 771-8113 
NEWARK 595 Brta-J. '201) 622-1339 
PARAMUS 175 Rt 17 S , (201) 262-1920 
SPRINGFIELD Rt *22 Center Isle. (201) 467-9827 
VOOHHEES 35 Eagle Plaza. (609) 348-0600 

NEW MEXICO 
ALBUQUERQUE 2108 San Mateo NE . (505) 265-9587 

NEW YORK 

ALBANY Shoppers Pk., Wolf Rd , (518) 459-5527 
BAYSHORE 1751 Sunrise Hwy , (516) 666-1800 
BETH PAGE 422 N. Wantagh Ave., (516) 822-6403 
BUFFALO 839 Niagara Falls Blvd.. (716) 837-2590 
FRESH MEADOWS 167-12 Horace Harding Exp.. 

(212) 454-1075 
JOHNSON CITY Giant Shopping Center. Harry L Drive. 

(607) 729-6312 
MELVILLE TSS Mall, Rt 110, (51 B) 673-4646 
NEW ROCHELLE 242 North Ave . (914) 636-0700 
NEW YORK 385 Fifth Ave , (212) 889-1345: 139 E. 

42n(! St.. (212) 953 6053; 19 W 23rd St., 

(212) 691-1861; 347 Madison Ave (212) 867-8650 
REGO PARK 97-77 Queens Blvd.. (212) 897-5200 
ROCHESTER 3000-Winton Rd , (716) 244-6400 
SCARS DALE 365 Central Park Ave , (914) 472-2520 
SPRING VALLEY White House Center. 88 W. Rt. 59. 

(914) 425-2828 
STATES ISLAND 2409 Richmond Ave., (212) 698-3100 
SYRACUSE 2544 Erie Blvd , (315) 446-3017 
UTICA Riverside Mall. (315) 735-1933 

NORTH CAROLINA 

CHARLOTTE 3732 Independence Blvd. , (704) 535-6320 
GREENSBORO 3718 High Point Rd., (919) 294-5529 
RALEIGH Townridge Sq.. Hwy. 70 W ., (919) 781-9380 
WINSTON-SALEM 629 Peters Creek Pkwy.. 
(919) 722-0030 

OHIO 

AKRON Fairlawn Plaza. 2727 W. Market St., 

|216) 836-9303 
CANTON 5243 Dressier Rd. NW . (216) 494-7230; 

Mellet Plaza, 3826 W. Tuscarawas, (216) 478-1878 
CENTERVILLE 2026 Miamisburg-Centerville Rd., 

(513) 435-5167 
CINCINNATI 9725 Montgomery, (513) 793-8668 
CLEVELAND 419 Euclid (Dwntwn), (216) 575-0800. 

27561 Euclid Ave . (216) 289-6823 
COLUMBUS 862 S Hamilton, Great Eastern S/C, 

(614) 864-2806. The Patio Shop Ctr , 4661 Karl 

Rd., (614) 888-8227; 400 N. High St., 

(614) 464-2781 
DAYTON Northwest Plaza. 3279 West Siebenthaler. 

(513) 277-6500 
NORTH OLMSTED Great Northern S/C, (216) 734-2255 
TOLEDO 5844 W. Central Ave,. (419) 531-5797 
YOUMGSTOWN Union Square Plaza. 2543 fielmont 

Ave . (2161 744-4541 



OKLAHOMA CITY 4732 SE 29th St.. (405) 670 4561; 

Springdale S/C, 4469 NW 50th, (405) 943-8712 
TULSA 7218 A 7220 E. 41st St.. (918) 663-2190 

OREGON 

EUGENE 390 Coburg Rd., (503) 687-0082 
PORTLAND 7463 SW Barbur Blvd.. (503) 246-1157; 
9131 SE Powell. (503) 777-2223 

PENNSYLVANIA 

ALLENTOWN Crest Plaza S/C. Cedar Cresl Blvd. US 

22, (215) 395-7155 
BALA CYNWYD 67 E City Line Ave.. (215) 666-9950 
ERIE 5755 Peach St., (814) 868-5541 
HARRIS8URG Union Deposit Mall. Union Deposit Rd. 

#17. (717) 564-6753 



LANCASTER Park City Plaza, US 30, (717) 393-5817 
MONROEVILLE 3828 Wm Penn. Hwy.. {412) 823-3400 
MONTGQMERYVILLE Airport Sq . Rt 309. 

(215)362-1200 
PHILADELPHIA 7542 Castor Ave . (215) 342 2217 

1002 Cheslnut St.. (215) 923-3080 
PITTSBURGH 6775 Baptist fid.. Hills Plaza. 

(412) 831-9694, 303 Srmthfield St , (412) 391-3150 
SCR ANTON 206 Meadow Ave.. (717) 348-3801 

RHODE ISLAND 
E. PROVIDENCE B50 Waterman Ave., (401) 438 2860 
PROVIDENCE 177 Union St . (401) 2720201 

SOUTH CAROLINA 
COLUMBIA Old Sears Bldg. 1001 Harden Sl, 

(803) 799-2065 

GREENVILLE H Hills S/C, (803) 292-1835 

N. CHARLESTON 5900 Rivers Ave.. (803) 747-5580 

TENNESSEE 
CHATTANOOGA 636 Northgate Mall. (615) 670-1366 
JOHNSON CITY Peerless Center, (615) 282-6829 
KNOXVSLLE Cedar Bluff S/C. 9123 Executive Park Dr., 

(615) 690-0520 
MEMPHIS 4665 American Way. (901) 795-4963; 1997 

Union Ave., (901) 278-7935 
NASHVILLE 2115 franklin Pike, (615) 298-5484; 

Rivergate Plaza, (615) 859-3414 

TEXAS 
ARLINGTON 2500 E Randof Mill, Suite 113, 

(817) 274-3127 
AUSTIN 8764 E. Research Blvd . (512) 459-4238 
BEAUMONT 5330 Eastex Frwy , (713) B98-7000 
CORPUS CHRIST! 1711 S. Staple St., (512) 887-8901 
DALLAS 15340 Dallas Pkwy., Suite 1100. 

(214) 934-0275, 2930 W. Northwest Hwy 

(214) 350-4144; 1517 Main St.. (214) 760-6601; 

2588 Royal Ln., (214) 484-9947 
EL PASO 9515 Gateway West. (915) 594-8211 
FT. WORTH 15 One Tandy Center, (817) 335-7198; 

2801 Aita Mere, (817) 738-0251 
HOUSTON 211C-FM 1960, (713) 444-7006; 10543 Gult 

Fwy., (713) 943-9310; 5900 North Fwy., 

(713) 699-1932. 6813 SW Fwy,, (713) 777-7907; 

809 Dallas St.. (713) 651-3002 
HURST Northeast Mall. (617) 284-1518 
LUBBOCK 3625 34th St.. (806) 793-1467 
ODESSA 1613 "A" East Bth Street, (915) 334-8355 
RICHARDSON Fleetwood Sq. S/C, 202 W Campbell 

Rd., (214)669-1494 
SAN ANTONIO 6018 West Ave . (512) 344-8792, 4249 

Centergate. (512) 657-3958 

UTAH 
MURRAY 5051 S State Ave.. (8011 268-8978 
SALT LAKE CITY 415 5th Ave . (801) 322-4893 

VIRGINIA 

ALEXANDRIA 4527 Duke St., Westend S/C, 

(703) 370-9000 
FAIRFAX Westlair Center, 11027 Lee Hwy , 

(703) 273-6500 
NEWPORT NEWS Newmarket South Shop. Ctr , 

(804) 245 8203 

NORFOLK 5731 Poplar Hall Dr , (B04) 461-0798 
RICHMOND Willow Lawn S/C, 1617 Willow Lawn Dr., 

(804) 282-3453; 7728 Midlothian Turnpike, 

(804) 272-8803 
ROANOKE Franklin Bldg . 3561 Franklin Rd S W.. 

(703) 342-6335 

WASHINGTON 
BELLEVUE Crossroads Mail. North East Bth & 156 St.. 

(206) 644-1804 
FEDERAL WAY 33505 Pacific Hwy. South, 

(206) 838-6830 
SEATTLE 18405 Aurora Ave. N.. (206) 542-6184 
SPOKANE 7702 N Division. (509) 484-7000; E. 12412 

S prague, (509) 922-2800 
TACOMA 7030 S Sprague. (206) 473-7333 
TUKWILA 15425 53rd Ave. S., (206) 248-3710 
YAKIMA 1111 H. First St . (509) 248-9667 

WEST VIRGINIA 
HUNTINGTON 2701V; 5th Ave . (304) 523-3527 

WISCONSIN 
MADISON 57 West Towns Mall. (60S) 833-6130 
MILWAUKEE 6450 N 76th St.. (414) 353 6790 
WEST ALUS 2717 South 108th SL. (414) 327-4240 



